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 inline functions

Browse source
This commit is contained in:
Justin Ethier 2017-08-22 18:58:36 -04:00
parent 0ce2190292
commit 73b166c65f
1 changed files with 15 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

18
scheme/read.sld
View file

@ -15,6 +15,10 @@
read-all
include
include-ci)
(inline
Cyc-opaque-eq?
Cyc-opaque-unsafe-eq?
Cyc-opaque-unsafe-string?)
(begin
(define-syntax include
@ -97,15 +101,23 @@
"(void *data, int argc, closure _, object k, object opq, object obj)"
" if (Cyc_is_opaque(opq) == boolean_f)
return_closcall1(data, k, boolean_f);
return_closcall1(data, k, equalp( opaque_ptr(opq), obj ));")
return_closcall1(data, k, equalp( opaque_ptr(opq), obj ));"
"(void *data, object ptr, object opq, object obj)"
" if (Cyc_is_opaque(opq) == boolean_f)
return(boolean_f);
return(equalp( opaque_ptr(opq), obj ));")
(define-c Cyc-opaque-unsafe-eq?
"(void *data, int argc, closure _, object k, object opq, object obj)"
" return_closcall1(data, k, equalp( opaque_ptr(opq), obj ));")
" return_closcall1(data, k, equalp( opaque_ptr(opq), obj ));"
"(void *data, object ptr, object opq, object obj)"
" return(equalp( opaque_ptr(opq), obj ));")
(define-c Cyc-opaque-unsafe-string?
"(void *data, int argc, closure _, object k, object opq)"
" return_closcall1(data, k, Cyc_is_string(opaque_ptr(opq)));")
" return_closcall1(data, k, Cyc_is_string(opaque_ptr(opq)));"
"(void *data, object ptr, object opq)"
" return(Cyc_is_string(opaque_ptr(opq)));")
(define-c Cyc-opaque-unsafe-string->number
"(void *data, int argc, closure _, object k, object opq)"