/
/
usr
/
lib64
/
guile
/
2.0
/
ccache
/
language
/
tree-il
Server: server63.web-hosting.com (198.54.116.184)
You: 216.73.216.187
PHP 7.4.33
Dir:
/usr/lib64/guile/2.0/ccache/language/tree-il
Edit:
/usr/lib64/guile/2.0/ccache/language/tree-il/primitives.go
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 > " G ��R������ h0 � ] 445 5$ " 4 5 6� g name 0 g t , g filenamef language/tree-il/primitives.scm� t �� v �� v #�� v �� v �� ! w �� % w �� ) w �� 0 u �� 0 g nameg add-interesting-primitive!� C)R4�i5 �R4�i)i�i> " G ��R��R?@ABEFGHIJKLVWXYZMNOPQRSTU[\]^_`bacdefghijklmnopqrstuv������������������������������4��i�i5�������������������������������������������������������������������������������������R��R��R RR4�i5 R4�i5 R4�i5 R4�i5 R4�i5 R4�i� h l ] 6 d g x g filenamef language/tree-il/primitives.scm� � �� � �� C�i> " G 4�i� h l ] 6 d g x g filenamef language/tree-il/primitives.scm� � �� � �� C�i> " G 4�i� h l ] 6 d g x g filenamef language/tree-il/primitives.scm� � �� � �� C�i> " G 4�i� h l ] 6 d g x g filenamef language/tree-il/primitives.scm� � �� � �� Ci> " G 4�i� h( � ]4 � �> " G � �6 � g x & g filenamef language/tree-il/primitives.scm� � �� � �� � 4�� � <�� � �� ! � 4�� $ � <�� & � �� & Ci> " G C� h � ] 6 � g prim g filenamef language/tree-il/primitives.scm� � �� � �� g nameg constructor-primitive?� C-RC� h � ] 6 � g prim g filenamef language/tree-il/primitives.scm� � �� � �� g nameg accessor-primitive?� C.R h � ] 6 � g prim g filenamef language/tree-il/primitives.scm� � �� � �� g nameg effect-free-primitive?� C+R h � ] 6 � g prim g filenamef language/tree-il/primitives.scm� � �� � �� g nameg effect+exception-free-primitive?� C,R h � ]4 5�C � g prim g filenamef language/tree-il/primitives.scm� � �� � �� � �� g nameg singly-valued-primitive?� C/R h � ] 6 � g prim g filenamef language/tree-il/primitives.scm� � �� � �� g nameg bailout-primitive?� C0R h � ] 6 � g prim g filenamef language/tree-il/primitives.scm� � �� � �� g nameg negate-primitive� C1R �� h o ]L 6 g g name g filenamef language/tree-il/primitives.scm� � �� � �� C �� h o ]L 6 g g name g filenamef language/tree-il/primitives.scm� �� �� C h � ]44 L55L O 6 g m g filenamef language/tree-il/primitives.scm� � �� � �� � #�� � �� � �� C h� K ]) �&