Graybyt3 Was Here
Linux premium295.web-hosting.com 4.18.0-513.24.1.lve.2.el8.x86_64 #1 SMP Fri May 24 12:42:50 UTC 2024 x86_64
LiteSpeed
66.29.137.177
/
lib64
/
guile
/
2.0
/
ccache
/
language
/
tree-il
[ HOME ]
Exec
Submit
File Name : 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 > "