Added a non-working stub

This commit is contained in:
Justin Ethier 2016-01-09 23:02:57 -05:00
parent 4f3d7055d4
commit ae22ecffbe

12
scheme/time.sld Normal file
View file

@ -0,0 +1,12 @@
(define-library (scheme time)
(export
current-jiffy ;; TODO: This is just temporary, of course
)
(import (scheme base)
)
(begin
(define-c prim-test
"(void *data, int argc, closure _, object k, object arg1, object arg2)"
" return_closcall1(data, k, arg1); ")
;; End FFI
))