Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-05-23 20:15:05 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Use safe cxr functions

Browse source
This commit is contained in:
Justin Ethier 2016-07-29 22:51:16 -04:00
parent c90679a851
commit 3beec26ba5
1 changed files with 32 additions and 28 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

60
scheme/cyclone/primitives.sld
View file

@ -430,34 +430,34 @@
((eq? p 'Cyc-write-char) "Cyc_write_char")
((eq? p 'car) "Cyc_car")
((eq? p 'cdr) "Cyc_cdr")
((eq? p 'caar) "caar")
((eq? p 'cadr) "cadr")
((eq? p 'cdar) "cdar")
((eq? p 'cddr) "cddr")
((eq? p 'caaar) "caaar")
((eq? p 'caadr) "caadr")
((eq? p 'cadar) "cadar")
((eq? p 'caddr) "caddr")
((eq? p 'cdaar) "cdaar")
((eq? p 'cdadr) "cdadr")
((eq? p 'cddar) "cddar")
((eq? p 'cdddr) "cdddr")
((eq? p 'caaaar) "caaaar")
((eq? p 'caaadr) "caaadr")
((eq? p 'caadar) "caadar")
((eq? p 'caaddr) "caaddr")
((eq? p 'cadaar) "cadaar")
((eq? p 'cadadr) "cadadr")
((eq? p 'caddar) "caddar")
((eq? p 'cadddr) "cadddr")
((eq? p 'cdaaar) "cdaaar")
((eq? p 'cdaadr) "cdaadr")
((eq? p 'cdadar) "cdadar")
((eq? p 'cdaddr) "cdaddr")
((eq? p 'cddaar) "cddaar")
((eq? p 'cddadr) "cddadr")
((eq? p 'cdddar) "cdddar")
((eq? p 'cddddr) "cddddr")
((eq? p 'caar) "Cyc_caar")
((eq? p 'cadr) "Cyc_cadr")
((eq? p 'cdar) "Cyc_cdar")
((eq? p 'cddr) "Cyc_cddr")
((eq? p 'caaar) "Cyc_caaar")
((eq? p 'caadr) "Cyc_caadr")
((eq? p 'cadar) "Cyc_cadar")
((eq? p 'caddr) "Cyc_caddr")
((eq? p 'cdaar) "Cyc_cdaar")
((eq? p 'cdadr) "Cyc_cdadr")
((eq? p 'cddar) "Cyc_cddar")
((eq? p 'cdddr) "Cyc_cdddr")
((eq? p 'caaaar) "Cyc_caaaar")
((eq? p 'caaadr) "Cyc_caaadr")
((eq? p 'caadar) "Cyc_caadar")
((eq? p 'caaddr) "Cyc_caaddr")
((eq? p 'cadaar) "Cyc_cadaar")
((eq? p 'cadadr) "Cyc_cadadr")
((eq? p 'caddar) "Cyc_caddar")
((eq? p 'cadddr) "Cyc_cadddr")
((eq? p 'cdaaar) "Cyc_cdaaar")
((eq? p 'cdaadr) "Cyc_cdaadr")
((eq? p 'cdadar) "Cyc_cdadar")
((eq? p 'cdaddr) "Cyc_cdaddr")
((eq? p 'cddaar) "Cyc_cddaar")
((eq? p 'cddadr) "Cyc_cddadr")
((eq? p 'cdddar) "Cyc_cdddar")
((eq? p 'cddddr) "Cyc_cddddr")
((eq? p 'char->integer) "Cyc_char2integer")
((eq? p 'integer->char) "Cyc_integer2char")
((eq? p 'string->number)"Cyc_string2number2_")
@ -538,6 +538,10 @@
apply
car
cdr
caar cadr cdar cddr
caaar caadr cadar caddr cdaar cdadr cddar cdddr
caaaar caaadr caadar caaddr cadaar cadadr
caddar cadddr cdaaar cdaadr cdadar cdaddr cddaar cddadr cdddar cddddr
Cyc-default-exception-handler
Cyc-current-exception-handler
Cyc-end-thread!