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

Use safe car/cdr

Browse source
This commit is contained in:
Justin Ethier 2016-07-29 02:42:35 -04:00
parent fe65274c77
commit b325101fcb
1 changed files with 4 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
scheme/cyclone/primitives.sld
View file

@ -428,8 +428,8 @@
((eq? p 'Cyc-display) "Cyc_display_va") ((eq? p 'Cyc-display) "Cyc_display_va")
((eq? p 'Cyc-write) "Cyc_write_va") ((eq? p 'Cyc-write) "Cyc_write_va")
((eq? p 'Cyc-write-char) "Cyc_write_char") ((eq? p 'Cyc-write-char) "Cyc_write_char")
((eq? p 'car) "car") ((eq? p 'car) "Cyc_car")
((eq? p 'cdr) "cdr") ((eq? p 'cdr) "Cyc_cdr")
((eq? p 'caar) "caar") ((eq? p 'caar) "caar")
((eq? p 'cadr) "cadr") ((eq? p 'cadr) "cadr")
((eq? p 'cdar) "cdar") ((eq? p 'cdar) "cdar")
@ -536,6 +536,8 @@
>= >=
<= <=
apply apply
car
cdr
Cyc-default-exception-handler Cyc-default-exception-handler
Cyc-current-exception-handler Cyc-current-exception-handler
Cyc-end-thread! Cyc-end-thread!