mirror of
https://github.com/justinethier/cyclone.git
synced 2025-05-29 15:05:04 +02:00
8 lines
237 B
Scheme
8 lines
237 B
Scheme
(import (scheme base) (scheme write) (scheme repl))
|
|
|
|
(define-c bn-test
|
|
"(void *data, int argc, closure _, object k, object fx)"
|
|
" object bn = Cyc_int2bignum2(data, obj_obj2int(fx));
|
|
return_closcall1(data, k, bn); ")
|
|
|
|
(repl)
|