Temporary test file

This commit is contained in:
Justin Ethier 2022-06-01 22:57:03 -04:00
parent 165da29c49
commit b93232c393

8
test-bn.scm Normal file
View file

@ -0,0 +1,8 @@
(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, fx);
return_closcall1(data, k, bn); ")
(repl)