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

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