GOOF----LE-8-2.0�� ]a 4 hq+ ] g guile� � g define-module*� � � g language� g tree-il� g compile-glil� �
g filenameS� f !language/tree-il/compile-glil.scm� g importsS�
g system� g base� g syntax�
� � g pmatch�
� � g message�
� � g ice-9� g receive� � � g glil� � � g vm� g instruction� !
� "! � # � $# � %g optimize� &% � '& � (g canonicalize� )( � *) � +g analyze� ,+ � -, � .g srfi� /g srfi-1� 0./ � 1g selectS� 2g
filter-map� 32 � 4013 � 5"$'*-4 � 6g exportsS� 7 � 8g set-current-module� 98 � :8 � ;g
make-fluid� <g
*comp-module*� =g unused-variable� >g unused-variable-analysis� ?g unused-toplevel� @g unused-toplevel-analysis� Ag unbound-variable� Bg unbound-variable-analysis� Cg arity-mismatch� Dg arity-analysis� Eg format� Fg format-analysis� Gg %warning-passes� Hg and=>� Ig memq� Jg warningsS� Kg cadr� Lg assoc-ref� Mg analyze-tree� Ng make-lambda� Og tree-il-src� Pg make-lambda-case� Qg optimize!� Rg
canonicalize!� Sg analyze-lexicals� Tg flatten-lambda� Ug make-hash-table� Vg *primcall-ops*� Wg for-each� Xg hash-set!� Yg eq?� ZY �� [ZY�� \g eqv?� ]\ �� ^]\�� _g equal?� `_ �� a`_�� bg =� cb �� dg ee?� ecd�� fg <� gf �� hg lt?� igh�� jg >� kj �� lg gt?� mkl�� ng <=� on �� pg le?� qop�� rg >=� sr �� tg ge?� ust�� vg +� wv �� xg add� ywx�� zg -� {z �� |g sub� }{|�� ~g 1+� ~�� �g add1� ���� �g 1-� ���� �g sub1� ����� �g *� �� �� �g mul� ����� �g /� �� �� �g div� ����� �g quotient� �� �� �g quo� ����� �g remainder� �� �� �g rem� ����� �g modulo� �� �� �g mod� ����� �g ash� �� �� ����� �g logand� �� �� ����� �g logior� �� �� ����� �g logxor� �� �� ����� �g not� ���� ����� �g pair?� ���� ����� �g cons� �� �� ����� �g car� ���� ����� �g cdr� ���� ����� �g set-car!� �� �� ����� �g set-cdr!� �� �� ����� �g null?� ���� ����� �g list?� ���� ����� �g symbol?� ���� ����� �g vector?� ���� ��Č� �g list� ��nj� �g vector� ��Ɍ� �g class-of� ���� ��ˌ� �g
vector-ref� �� �� ��Ό� �g vector-set!� �� �� �g
vector-set� ��ӌ� �g variable-ref� ���� ��Ռ� �g variable-bound?� ���� ��،� �g struct?� ���� ��ی� �g
struct-vtable� ���� ��ތ� �g
struct-ref� �� �� ��ጤ �g struct-set!� �� �� �g
struct-set� ��挤 �g make-struct/no-tail� �g make-struct� ��錤 �g return� ���� ��댤 �g
return/values� �� �g bytevector-u8-ref� �� �� �g bv-u8-ref� ��� �g bytevector-u8-set!� �� �� �g bv-u8-set� ����� �g bytevector-s8-ref� �� �� �g bv-s8-ref� ����� �g bytevector-s8-set!� �� �� �g bv-s8-set� ����� g bytevector-u16-ref� ��g
bv-u16-ref���g bytevector-u16-set!� ��g
bv-u16-set���g bytevector-u16-native-ref� ��
g bv-u16-native-ref�
��g bytevector-u16-native-set!�
��g bv-u16-native-set�
��g bytevector-s16-ref� ��g
bv-s16-ref���g bytevector-s16-set!� ��g
bv-s16-set���g bytevector-s16-native-ref� ��g bv-s16-native-ref���g bytevector-s16-native-set!� ��g bv-s16-native-set��� g bytevector-u32-ref�! ��"g
bv-u32-ref�#!"��$g bytevector-u32-set!�%$ ��&g
bv-u32-set�'%&��(g bytevector-u32-native-ref�)( ��*g bv-u32-native-ref�+)*��,g bytevector-u32-native-set!�-, ��.g bv-u32-native-set�/-.��0g bytevector-s32-ref�10 ��2g
bv-s32-ref�312��4g bytevector-s32-set!�54 ��6g
bv-s32-set�756��8g bytevector-s32-native-ref�98 ��:g bv-s32-native-ref�;9:��<g bytevector-s32-native-set!�=< ��>g bv-s32-native-set�?=>��@g bytevector-u64-ref�A@ ��Bg
bv-u64-ref�CAB��Dg bytevector-u64-set!�ED ��Fg
bv-u64-set�GEF��Hg bytevector-u64-native-ref�IH ��Jg bv-u64-native-ref�KIJ��Lg bytevector-u64-native-set!�ML ��Ng bv-u64-native-set�OMN��Pg bytevector-s64-ref�QP ��Rg
bv-s64-ref�SQR��Tg bytevector-s64-set!�UT ��Vg
bv-s64-set�WUV��Xg bytevector-s64-native-ref�YX ��Zg bv-s64-native-ref�[YZ��\g bytevector-s64-native-set!�]\ ��^g bv-s64-native-set�_]^��`g bytevector-ieee-single-ref�a` ��bg
bv-f32-ref�cab��dg bytevector-ieee-single-set!�ed ��fg
bv-f32-set�gef��hg !bytevector-ieee-single-native-ref�ih ��jg bv-f32-native-ref�kij��lg "bytevector-ieee-single-native-set!�ml ��ng bv-f32-native-set�omn��pg bytevector-ieee-double-ref�qp ��rg
bv-f64-ref�sqr��tg bytevector-ieee-double-set!�ut ��vg
bv-f64-set�wuv��xg !bytevector-ieee-double-native-ref�yx ��zg bv-f64-native-ref�{yz��|g "bytevector-ieee-double-native-set!�}| ��~g bv-f64-native-set�}~���[^aeimquy}����������������������������������������#'+/37;?CGKOSW[_cgkosw{ R��g gensym��f :L��g
make-label��g map��g hashq-ref��g error��f bad var list element��g vars->bind-list��g make-glil-bind��g
emit-bindings��g make-glil-source��g reverse��g with-output-to-code��g <lambda>��g
lambda-src��g lambda-meta��g lambda-body��g make-glil-program��g flatten-lambda-case��f unhandled record��g push��g drop��g make-glil-void��g make-glil-lexical��g set��f bad let var allocation��g <void>��g vals��g tail��g make-glil-branch��g br��g make-glil-call��g <const>��g const-src��g const-exp��g make-glil-const��g
<sequence>��g
sequence-exps��g
<application>��g application-src��g application-proc��g application-args��g primitive-ref?��g hash-ref��g primitive-ref-name��g length��g instruction-pushes��f !bad primitive op: too many pushes��g new-frame��g tail-call��g
make-const��g tail-call/nargs��g call��g
call/nargs��g make-glil-mv-call��g make-glil-label��g make-glil-mv-bind��g lexical-ref?��g assq��g lexical-ref-gensym��g lambda-case?��g lambda-case-kw��g lambda-case-opt��g lambda-case-rest��g lambda-case-req��g box��f bad lambda-case arg allocation��g lambda-case-gensyms��g lambda-case-alternate��f *couldn't find matching case for label call��g assq-ref��g values��g
variable-set!��g variable-set��g @call-with-current-continuation��g tail-call/cc��g make-application��g make-primitive-ref��g call-with-current-continuation��g call/cc��g @call-with-values��g call-with-values��g @apply��g
tail-apply��g apply��g return/values*��g
<conditional>��g conditional-src��g conditional-test��g conditional-consequent��g conditional-alternate��g <primitive-ref>��g br-if-not��g br-if��g
br-if-null��g br-if-eq��g br-if-not-null��g br-if-not-eq��g primitive-ref-src��g module-variable��g the-root-module��g make-glil-toplevel��g ref��g make-glil-module��g module-name��g
<lexical-ref>��g lexical-ref-src��f bad lexical allocation��g
<lexical-set>��g lexical-set-src��g lexical-set-gensym��g lexical-set-exp��g <module-ref>��g module-ref-src��g module-ref-mod��g module-ref-name��g module-ref-public?��g <module-set>��g module-set-src��g module-set-mod��g module-set-name��g module-set-public?��g module-set-exp��g <toplevel-ref>��g toplevel-ref-src��g toplevel-ref-name��g <toplevel-set>� g toplevel-set-src�g toplevel-set-name�g toplevel-set-exp�g <toplevel-define>�g toplevel-define-src�g toplevel-define-name�g toplevel-define-exp�g define�f bad lambda free var allocation� g make-closure�
g
<lambda-case>�g lambda-case-src�g lambda-case-inits�
g lambda-case-body�g
list-index�f bad kwarg�g max�f ,lambda-case gensyms don't correspond to args�g make-glil-kw-prelude�g make-glil-opt-prelude�g make-glil-std-prelude�g delq�f bad keywords, yo�g append�g list-tail�g bound?�f bad arg allocation�g make-glil-unbind�g <let>�g let-src�g let-names�g let-gensyms� g let-vals�!g let-body�"g <letrec>�#g
letrec-src�$g letrec-in-order?�%g letrec-names�&g letrec-gensyms�'g letrec-vals�(g letrec-body�)g empty-box�*f bad letrec var allocation�+g <fix>�,g fix-src�-g fix-names�.g fix-gensyms�/g fix-vals�0g fix-body�1f bad fix var allocation�2g reverse!�3f bad free var allocation�4g fix�5g <let-values>�6g let-values-src�7g let-values-exp�8g let-values-body�9f $unexpected lambda-case in let-values�:f bad let-values var allocation�;g <dynwind>�<g dynwind-src�=g dynwind-body�>g dynwind-winder�?g dynwind-unwinder�@g wind�Ag unwind�Bg return/nvalues�Cg <dynlet>�Dg
dynlet-fluids�Eg dynlet-vals�Fg dynlet-body�Gg
dynlet-src�Hg wind-fluids�Ig
unwind-fluids�Jg <dynref>�Kg dynref-fluid�Lg
dynref-src�Mg fluid-ref�Ng <dynset>�Og dynset-fluid�Pg
dynset-exp�Qg
dynset-src�Rg fluid-set�Sg <prompt>�Tg
prompt-src�Ug
prompt-tag�Vg prompt-body�Wg prompt-handler�Xg make-glil-prompt�Yf unexpected lambda-case in prompt�Zf !bad prompt handler arg allocation�[g <abort>�\g abort-src�]g abort-tag�^g
abort-args�_g
abort-tail�`g abort�C 5 h�� � ]4
5675 4: > "