Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-05-24 20:45:06 +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 read-all
include include
include-ci) include-ci)
(inline
Cyc-opaque-eq?
Cyc-opaque-unsafe-eq?
Cyc-opaque-unsafe-string?)
(begin (begin
(define-syntax include (define-syntax include
@ -97,15 +101,23 @@
"(void *data, int argc, closure _, object k, object opq, object obj)" "(void *data, int argc, closure _, object k, object opq, object obj)"
" if (Cyc_is_opaque(opq) == boolean_f) " if (Cyc_is_opaque(opq) == boolean_f)
return_closcall1(data, k, 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? (define-c Cyc-opaque-unsafe-eq?
"(void *data, int argc, closure _, object k, object opq, object obj)" "(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? (define-c Cyc-opaque-unsafe-string?
"(void *data, int argc, closure _, object k, object opq)" "(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 (define-c Cyc-opaque-unsafe-string->number
"(void *data, int argc, closure _, object k, object opq)" "(void *data, int argc, closure _, object k, object opq)"