mirror of
https://github.com/justinethier/cyclone.git
synced 2025-05-23 20:15:05 +02:00
Temporary test file
This commit is contained in:
parent
165da29c49
commit
b93232c393
1 changed files with 8 additions and 0 deletions
8
test-bn.scm
Normal file
8
test-bn.scm
Normal 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)
|
Loading…
Add table
Reference in a new issue