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

New FFI syntax

Browse source
This commit is contained in:
Justin Ethier 2016-01-07 22:45:45 -05:00
parent 6d4c85766e
commit 5e1bc2f282
1 changed files with 1 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
scheme/load.sld
View file

@ -15,12 +15,11 @@
;; lambda portion is computed, so we can't include that. ;; lambda portion is computed, so we can't include that.
;; compiler would need to insert the "static void (lambda)" part ;; compiler would need to insert the "static void (lambda)" part
;; TODO: maybe break up into two args, one being the args list and the other being the function body?? ;; TODO: maybe break up into two args, one being the args list and the other being the function body??
(c-ffi:define prim-test " (define-c prim-test "
(void *data, int argc, closure _, object k, object arg1, object arg2) { (void *data, int argc, closure _, object k, object arg1, object arg2) {
return_closcall1(data, k, arg1); return_closcall1(data, k, arg1);
} }
") ")
)
;; End FFI ;; End FFI
(define (load filename . env) (define (load filename . env)
(let ((exprs (call-with-input-file filename (let ((exprs (call-with-input-file filename