GOOF----LE-8-2.0� ] : 4 h� ] g guile� � g define-module*� � � g language� g tree-il� g canonicalize� �
g filenameS� f !language/tree-il/canonicalize.scm� g importsS�
�
� g ice-9� g match� � � g srfi� g srfi-1� � � � g exportsS� g
canonicalize!� � g set-current-module� � � g tree-il-fold� g tree-il-any� g post-order!� !g <prompt>� "g
<lambda-case>� #g lexical-ref?� $g lexical-ref-gensym� %g
<application>� &g <lambda>� 'g make-prompt� (g make-lambda� )g make-lambda-case� *g make-application� +g make-primitive-ref� ,g throw� -g
make-const� .g wrong-number-of-args� /f Wrong number of arguments� 0g <dynlet>� 1g <fix>� 2g <letrec>� 3g <let>� 4g
<sequence>� 5g any� 6g sequence?� 7g
make-sequence� 8g
append-map� 9g
sequence-exps�C 5 h u ]4
5 4 > " G h � ]$ CL 6 g exp
g res g filenamef !language/tree-il/canonicalize.scm�
�� �� �� C h � ]$ CL 6 g exp
g res g filenamef !language/tree-il/canonicalize.scm�
�� �� �� C h w ]C o g exp
g res g filenamef !language/tree-il/canonicalize.scm�
�� C h � ] O O 6 � g proc
g exp g filenamef !language/tree-il/canonicalize.scm�
�� �� g nameg tree-il-any� C R !" #$ h � ]4 5$ 4 5L �CC | g x
g filenamef !language/tree-il/canonicalize.scm�
K �� L &��
L !�� M +�� M &�� C%&'()*+,-./01234567869 h � ]4 5$ 6 C | g x
g filenamef !language/tree-il/canonicalize.scm�
+ (�� , .��
, *�� - .�� . .�� C h` g ]a" " �" w" " �" w" � �$ � �& �
� � � � �$ ��& �
� � �$ u�� � � � � � �$ ?� � � � & 4O 5�" " " " " $ " ��$ ��& �
� � �$ ��& �
� � � �$ z�& l
� � ( S � & = �
& ' � & � � " "
" " " " " " " " $ CH44 5 5K4
J5 6CC �$ v �& i
� � � & K4 4
4 54
54
54
54
54
5 55 6"���"���"��� �$ 9 �& ,
� � ( � ( �C"��Q"��M"��I"��E �$ J �& =
� � ( ( � ( � ( �C"���"���"���"���"��� �$ P �& C
� � � ( ( � ( � ( �C"���"���"���"���"��� �$ J �& =
� � ( ( � ( � ( �C"��D"��@"��<"��8"��4 �$ 7 �& *
� � 45$ 456C"���"��� �$ 2 �& %
� � �$ �( �C"���"���"���"��� _ g x
Y g w 2 g w 8 g w ? g w F g w a � g w � � g w � � g w � � g w � � g t � � g w � g w 4 � g w O � g w \ � g w
j � g w x � g w � � g thunk � g w $ � g w * � g w 1 � g w � � g w � � g w � " g w � g w g w I } g w V y g w c u g w � � g w � � g w � � g w � g w � g w 5 Q $g filenamef !language/tree-il/canonicalize.scm�
$ �� % �� K I
�� � K �� � K
�� � _ �� � Q
�� � _ �� � X �� � X �� � Y �� � Y .�� � Y ;�� � Y ?�� � Y �� � X �� � Z
�� Z %�� Z
�� b �� % �� A < �� E =
�� I = �� J = �� K >
�� O @ �� T @ "�� V @ �� W A �� \ A �� ^ A �� _ B �� f C �� k C �� m C �� n D �� r D �� t D �� u E �� ~ A �� � >
�� � < �� � : �� � % �� � )
�� ) �� + �� *
�� % �� 3 Y C h � ] 6 } g x
g filenamef !language/tree-il/canonicalize.scm�
"
��
# ��
g nameg
canonicalize!� CRC m g m
, g filenamef !language/tree-il/canonicalize.scm�
�� �
�� "
��
C6