GOOF----LE-8-2.0� ] # 4 h# ] g guile� � g define-module*� � � g language� g brainfuck� g parse� �
g filenameS� f language/brainfuck/parse.scm� g exportsS�
g read-brainfuck�
� g set-current-module� � � g <bf-nop>� g reverse-without-nops� g read-char� g eof-object?� g process-input-char� g <bf-move>� � � � g <bf-increment>� � � � g
<bf-print>� � g <bf-read>� � !g <bf-loop>� " �C 5h x ]4
5 4 > " G hH 9 ]!" 7( C�� �& "���� "��� "���1 g lst
H g cur = g result = g head = g tail = g filenamef language/brainfuck/parse.scm�
*
�� + �� - �� / �� 0 �� / �� 1 �� 1 �� " 1 �� . 2
�� 5 3 �� = 3
�� = + �� @ , �� H + �� H g nameg reverse-without-nops� CR hX 9 ]" J4 5 45$ 45 ( CC]�$ 64 5� "��� "��� 1 g p
W g parsed P g chr
P g parsed ! / g filenamef language/brainfuck/parse.scm�
>
�� ? �� @ ��
@ �� B �� A �� C �� ! C �� ) D
�� 4 G �� 8 A �� > H �� ? J �� J J �� P J �� P ? �� Q ? �� W ? �� W g nameg read-brainfuck� C
R !
"
hh ] >�$ C <�$ C +�$ C -�$ C .�$ C ,�$ C [�$ 45�C C g chr
a g p a g filenamef language/brainfuck/parse.scm�
U
�� V ��
W �� V �� X �� # V �� % Y �� / V �� 1 Z �� ; V �� = [ �� G V �� I \ �� S V �� U ] �� V ] �� ] ] �� ` ^
�� a g nameg process-input-char� CRC p g m
( g filenamef language/brainfuck/parse.scm�
�� � *
�� l >
�� U
��
C6