Use safe car/cdr

This commit is contained in:
Justin Ethier 2016-07-29 02:42:35 -04:00
parent fe65274c77
commit b325101fcb

View file

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