GOOF----LE-8-2.0� ]l 4 h� ] g guile� � g define-module*� � � g language� g tree-il� g
primitives� �
g filenameS� f language/tree-il/primitives.scm� g importsS�
g system� g base� g pmatch�
� � g ice-9� g match� � � g rnrs� g bytevectors� � � g syntax�
� � � � g srfi� g srfi-4� ! � "! � #g srfi-16� $# � %$ � &"% � 'g exportsS� (g resolve-primitives!� )g add-interesting-primitive!� *g expand-primitives!� +g effect-free-primitive?� ,g effect+exception-free-primitive?� -g constructor-primitive?� .g accessor-primitive?� /g singly-valued-primitive?� 0g bailout-primitive?� 1g negate-primitive� 2()*+,-./01
� 3g set-current-module� 43 � 53 � 6g apply� 7g @apply� 8g call-with-values� 9g @call-with-values� :g call-with-current-continuation� ;g @call-with-current-continuation� <g call/cc� =g dynamic-wind� >g
@dynamic-wind� ?g values� @g eq?� Ag eqv?� Bg equal?� Cg memq� Dg memv� Eg =� Fg <� Gg >� Hg <=� Ig >=� Jg zero?� Kg positive?� Lg negative?� Mg +� Ng *� Og -� Pg /� Qg 1-� Rg 1+� Sg quotient� Tg remainder� Ug modulo� Vg ash� Wg logand� Xg logior� Yg logxor� Zg lognot� [g not� \g pair?� ]g null?� ^g list?� _g symbol?� `g vector?� ag string?� bg struct?� cg number?� dg char?� eg complex?� fg real?� gg rational?� hg inf?� ig nan?� jg integer?� kg exact?� lg inexact?� mg even?� ng odd?� og char<?� pg char<=?� qg char>=?� rg char>?� sg
integer->char� tg
char->integer� ug number->string� vg string->number� wg acons� xg cons� yg cons*� zg list� {g vector� |g car� }g cdr� ~g set-car!� g set-cdr!� �g caar� �g cadr� �g cdar� �g cddr� �g caaar� �g caadr� �g cadar� �g caddr� �g cdaar� �g cdadr� �g cddar� �g cdddr� �g caaaar� �g caaadr� �g caadar� �g caaddr� �g cadaar� �g cadadr� �g caddar� �g cadddr� �g cdaaar� �g cdaadr� �g cdadar� �g cdaddr� �g cddaar� �g cddadr� �g cdddar� �g cddddr� �g
vector-ref� �g vector-set!� �g variable-ref� �g
variable-set!� �g variable-bound?� �g fluid-ref� �g
fluid-set!� �g @prompt� �g call-with-prompt� �g @abort� �g abort-to-prompt� �g make-prompt-tag� �g throw� �g error� �g scm-error� �g
string-length� �g
string-ref� �g string-set!� �g
struct-vtable� �g make-struct� �g
struct-ref� �g struct-set!� �g bytevector-u8-ref� �g bytevector-u8-set!� �g bytevector-s8-ref� �g bytevector-s8-set!� �g u8vector-ref� �g
u8vector-set!� �g s8vector-ref� �g
s8vector-set!� �g bytevector-u16-ref� �g bytevector-u16-set!� �g bytevector-u16-native-ref� �g bytevector-u16-native-set!� �g bytevector-s16-ref� �g bytevector-s16-set!� �g bytevector-s16-native-ref� �g bytevector-s16-native-set!� �g
u16vector-ref� �g u16vector-set!� �g
s16vector-ref� �g s16vector-set!� �g bytevector-u32-ref� �g bytevector-u32-set!� �g bytevector-u32-native-ref� �g bytevector-u32-native-set!� �g bytevector-s32-ref� �g bytevector-s32-set!� �g bytevector-s32-native-ref� �g bytevector-s32-native-set!� �g
u32vector-ref� �g u32vector-set!� �g
s32vector-ref� �g s32vector-set!� �g bytevector-u64-ref� �g bytevector-u64-set!� �g bytevector-u64-native-ref� �g bytevector-u64-native-set!� �g bytevector-s64-ref� �g bytevector-s64-set!� �g bytevector-s64-native-ref� �g bytevector-s64-native-set!� �g
u64vector-ref� �g u64vector-set!� �g
s64vector-ref� �g s64vector-set!� �g bytevector-ieee-single-ref� �g bytevector-ieee-single-set!� �g !bytevector-ieee-single-native-ref� �g "bytevector-ieee-single-native-set!� �g bytevector-ieee-double-ref� �g bytevector-ieee-double-set!� �g !bytevector-ieee-double-native-ref� �g "bytevector-ieee-double-native-set!� �g
f32vector-ref� �g f32vector-set!� �g
f64vector-ref� �g f64vector-set!� �6789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~���������������������������������������������������������������������������������������������������������� �� �g *interesting-primitive-names*� �g
hashq-set!� �g *interesting-primitive-vars*� �g module-variable� �g current-module� �f unbound interesting primitive� �g make-hash-table� �g for-each� �g make-struct/no-tail� �wxyz{��� � �g *primitive-constructors*� ��|}CD�������������������� � �g *primitive-accessors*� �g append� �� � �� � �g *effect-free-primitives*� �?@AB[\]^_`bacdwxyz{ � �g "*effect+exception-free-primitives*� �6789:;<=>?���� � �g *multiply-valued-primitives*� ��� �g *bailout-primitives*�mn��kl��oq��rp�� �g *negatable-primitives*�g *effect-free-primitive-table*� g (*effect+exceptions-free-primitive-table*�
g !*multiply-valued-primitive-table*�g *bailout-primitive-table*�g *negatable-primitive-table*�
g hashq-ref�g post-order!�g <toplevel-ref>�g toplevel-ref-src�g toplevel-ref-name�g and=>�g make-primitive-ref�g <module-ref>�g module-ref-src�g module-ref-mod�g module-ref-name�g module-ref-public?�g resolve-module�g module-public-interface�g identity�g *primitive-expand-table*�g
pre-order!�g
<application>�g application-src� g application-proc�!g application-args�"g primitive-ref?�#g primitive-ref-name�$g make-syntax-transformer�%$ �&$ �'g define-primitive-expander�(g macro�)g $sc-dispatch�*) �+) �,g _�-g any�.,-��/g
syntax->datum�0/ �1/ �2g
datum->syntax�32 �42 �5g reverse�6g quote�7g
make-const�8g src�9g make-application�:g self-evaluating?�;f what what�<g if�=f bad consequent yall�>g
match-lambda*�?, �@g syntax-violation�A@ �B@ �Cf -source expression failed to match any pattern�Dg length�ED �FD �Gg last�HG �I5 �J5 �Kg const?�Lg const-exp�Mg gensym�Nf b�Og make-lexical-ref�Pg b�Qg make-let�RP �Sg make-conditional�Tg chained-comparison-expander�UFGHIE �V �Wg most-negative-fixnum�Xg most-positive-fixnum�Yg maybe-simplify-to-eq�Zf pre-�[f thunk-�\f post-�]g pre�^g thunk�_g post�`]^_ �ag make-dynwind�b]_ �cg make-dynref�dg make-dynset�eg make-prompt�fg make-lambda-case�gg tree-il-src�hg args�ig handler�ji �kg
make-abort�C 5 h`� b ]4
&'25 45 > "