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

Hooks for unsafe car/cdr

Browse source
This commit is contained in:
Justin Ethier 2016-11-02 20:19:05 +00:00
parent 8c9ce2def0
commit 2159746a95
1 changed files with 8 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
scheme/cyclone/primitives.sld
View file

@ -166,7 +166,10 @@
Cyc-read-line
Cyc-write-char
Cyc-write
Cyc-display))
Cyc-display
Cyc-unsafe-car
Cyc-unsafe-cdr
))
;; Keep track of how many args are required for each primitive.
;; For each primitive, define:
@ -231,6 +234,8 @@
(length 1 1)
(set-car! 2 2)
(set-cdr! 2 2)
(Cyc-unsafe-car 1 1)
(Cyc-unsafe-cdr 1 1)
(car 1 1)
(cdr 1 1)
(caar 1 1)
@ -461,6 +466,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 'Cyc-unsafe-car) "car")
((eq? p 'Cyc-unsafe-cdr) "cdr")
((eq? p 'car) "Cyc_car")
((eq? p 'cdr) "Cyc_cdr")
((eq? p 'caar) "Cyc_caar")