GOOF----LE-8-2.0� ] 4 h� ] g guile� � g define-module*� � � g language� g scheme� g decompile-tree-il� �
g filenameS� f %language/scheme/decompile-tree-il.scm� g importsS�
g tree-il�
� � g srfi� g srfi-1� � � g srfi-26� � � g ice-9� g receive� � � g vlist� � � g match� � � !g system� "g base� #g syntax� $!"# � %$ � & % � 'g exportsS� ( � )g set-current-module� *) � +) � ,g do-decompile� -g use-derived-syntax?S� .- �� /g
avoid-lambda?S� 0/ �� 1g use-case?S� 21 �� 3g strip-numeric-suffixes?S� 43 �� 5.024 � 6g choose-output-names� 7g hashq-ref� 8g if� 98 � :g begin� ;g let� <g lambda*� =g define*� >g define� ?g lambda� @g map� Ag list� Bg let*� Cg letrec*� Dg letrec� Eg append� FE � GE � Hg length� Ig and� Jg or� KH � LH � Mg x� NM � Og else� Pg reverse� QP � RP � SO � TS � Ug eqv?� Vg quote� Wg memv� Xg case� Yg c� ZVO � [g _� \Z[�� ]IY\ � ^] � _g cond� `g
take-while� ag identity� bg drop� cg car� dg cdr� eg cons� fg take� gg <void>� hg <const>� ig const-exp� jg self-evaluating?� kg
<sequence>� lg
sequence-exps� mg
<application>� ng application-proc� og application-args� pg <primitive-ref>� qg primitive-ref-name� rg
<lexical-ref>� sg lexical-ref-gensym� tg
<lexical-set>� ug lexical-set-gensym� vg lexical-set-exp� wg set!� xg <module-ref>� yg module-ref-mod� zg module-ref-name� {g module-ref-public?� |g @� }g @@� ~g <module-set>� g module-set-mod� �g module-set-name� �g module-set-public?� �g module-set-exp� �g <toplevel-ref>� �g toplevel-ref-name� �g <toplevel-set>� �g toplevel-set-name� �g toplevel-set-exp� �g <toplevel-define>� �g toplevel-define-name� �g toplevel-define-exp� �g <lambda>� �g lambda-meta� �g lambda-body� �g assq-ref� �g
documentation� �g case-lambda*� �g case-lambda� �� � �g
<lambda-case>� �g lambda-case-req� �g lambda-case-opt� �g lambda-case-rest� �g lambda-case-kw� �g lambda-case-inits� �g lambda-case-gensyms� �g lambda-case-body� �g lambda-case-alternate� �g cons*� �g list-ref� �g list-head� �g optionalS� �g list-tail� �g keyS� �g caddr� �g allow-other-keysS� �� � �g
<conditional>� �g conditional-test� �g conditional-consequent� �g conditional-alternate� �VU � �g v� �VV � �g
last-datum� ��� � ���� � �Z� � �� � �g void?� �g <let>� �g let-gensyms� �g let-vals� �g let-body� �g <letrec>� �g letrec-in-order?� �g letrec-gensyms� �g letrec-vals� �g letrec-body� �g <fix>� �g fix-gensyms� �g fix-vals� �g fix-body� �g <let-values>� �g let-values-exp� �g let-values-body� �g call-with-values� �g make-lambda� �g <dynwind>� �g dynwind-body� �g dynwind-winder� �g dynwind-unwinder� �g dynamic-wind� �g <dynlet>� �g
dynlet-fluids� �g dynlet-vals� �g dynlet-body� �g with-fluids� �g <dynref>� �g dynref-fluid� �g fluid-ref� �g <dynset>� �g dynset-fluid� �g
dynset-exp� �g
fluid-set!� �g <prompt>� �g
prompt-tag� �g prompt-body� �g prompt-handler� �g call-with-prompt� �g <abort>� �g abort-tag� �g
abort-args� �g
abort-tail� �g apply� �g abort� �g error� �f unhandled record� �g make-hash-table� �8V|}w>=:;BDCIJ_X?<����������WU � �g for-each� �g
hashq-set!� �g string->char-set� �f
0123456789� �g string-skip-right� �g
string-length� �g
string-ref� �g substring� �g string->symbol� �g symbol->string� �g hashq-create-handle!� �g memq� �g top-level� �g vhash-foldq*� �g lexical-ref?� �g reverse!� �g =>� �g cadr� �g fold� �g vhash-consq� �g let-names� �g letrec-names� �g fix-names� �g
vlist-null� �g sort-list� �g any� �g and=>� �g
string-append� f -�g number->string�C 5 h0� � ] 4
&'(5 4+ > "