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

Added record-marker2

Browse source
This commit is contained in:
Justin Ethier 2020-12-20 22:46:27 -05:00
parent c3075a6396
commit 2c5d9eeb8d
1 changed files with 6 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
scheme/base.sld
View file

@ -29,6 +29,7 @@
slot-ref
slot-set!
type-slot-offset
record-marker2
;; END records
receive
abs
@ -1512,6 +1513,11 @@
" return_closcall1(data, k, Cyc_VOID); "
"(void *data, object ptr)"
" return Cyc_VOID;")
(define-c record-marker2
"(void *data, int argc, closure _, object k)"
" return_closcall1(data, k, Cyc_RECORD_MARKER); "
"(void *data, object ptr)"
" return Cyc_RECORD_MARKER;")
(define-c input-port?
"(void *data, int argc, closure _, object k, object port)"
" port_type *p = (port_type *)port;