GOOF----LE-8-2.0�
] X 4 h� ] g guile� � g define-module*� � � g language� g brainfuck� g compile-tree-il� �
g filenameS� f &language/brainfuck/compile-tree-il.scm� g importsS�
g system� g base� g pmatch�
� � g tree-il� � � � g exportsS� � g set-current-module� � � g tape-size� g
parse-tree-il� g let� g pointer� g tape� � !g const� "!
� #g apply� $g primitive� %g make-vector� &$% � '" � (g compile-body� )g void� *) � +g begin� ,g reverse� -g <bf-loop>� .g gensym� /g letrec� 0g iterate� 10 � 2g lambda� 3g lambda-case� 4 � 5g if� 6g =� 7$6 � 8g
vector-ref� 9$8 � :g lexical� ;: � <: � =#9;< � >#7=" � ? � @g error� Af unknown brainfuck instruction� Bg <bf-read>� Cg vector-set!� D$C � Eg
char->integer� F$E � Gg read-char� H$G � I#H � J#FI � K#D;<J � Lg
<bf-print>� Mg
write-char� N$M � Og
integer->char� P$O � Q#P= � R#NQ � Sg <bf-increment>� Tg +� U$T � Vg <bf-move>� Wg set!�C 5 h� � ]4
5 4 > " G u0R "#&!'( h8 � ]4 ��� 4
5 5D � g exp
2 g env 2 g opts 2 g filenamef &language/brainfuck/compile-tree-il.scm�
[
�� ] �� ^ �� ! a �� * ^ �� , ] �� 2 \ �� 2 g nameg compile-tree-il� CR*+,-./12345>(#:?@ABKLRSD;<U=!VW h( � ]A" ( ( C�( �C45�C� " �" " �" ��$ ��� & f45
4
5 �� �� "��G�6�6�$ 0�� & ( �� "��"��<"��8"��4�$ 0�� & ( �� "���"���"���"����$ b�� & L�$ A�� ( - �� "��b"���"���"���"����$ ^�� & H�$ =�� ( ) �� "���"��#"�� "��"�� "���� g instructions
( g in g out g v . g vx M � g vy M � g iterate ^ � g x � � g vx � g vy � g vx C g vy C g vx T � g vy T � g vx m � g vy m � g x � � g vx � g vy � g vx � g vy � g x �
g filenamef &language/brainfuck/compile-tree-il.scm�
h
�� i �� l �� o �� p �� q �� o �� q �� " r �� # r �� * r �� . u �� . u �� Z � �� ^ � �� b � �� y � +�� � � �� � � �� � k
�� � k �� � k �� � � �� � � 5�� � � �� � � �� � � 5�� � � �� � u �� � k
�� � � �� � k �� k �� u �� . k
�� 0 � �� 3 k �� ; k �� ? u �� y � �� � � �� � k
�� � k �� � k �� � u �� � z �� � z �� k
�� k ��
k �� u �� i �� i "�� ( i �� 7 ( g nameg compile-body� C(RC y g m
, g filenamef &language/brainfuck/compile-tree-il.scm�
�� 2 -
�� l [
�� � h
�� �
C6