Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-07-07 13:16:34 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Do not require TYPE arg of c-vlaue to be quoted in user code

Browse source
This commit is contained in:
Justin Ethier 2020-04-30 22:56:24 -04:00
parent 12e110f601
commit 5e7d896a95
2 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
libs/cyclone/foreign.sld
View file

@ -34,7 +34,7 @@
; (if (not (string? arg)) ; (if (not (string? arg))
; (error "c-value" "Invalid argument: string expected, received " arg))) ; (error "c-value" "Invalid argument: string expected, received " arg)))
; (cdr expr)) ; (cdr expr))
`((lambda () (Cyc-foreign-value ,code-arg ,type-arg))))))) `((lambda () (Cyc-foreign-value ,code-arg (quote ,type-arg))))))))
(define-syntax c-code (define-syntax c-code
(er-macro-transformer (er-macro-transformer

2
libs/test-foreign.scm
View file

@ -12,7 +12,7 @@
(define *my-global* #f) (define *my-global* #f)
(test-group "foreign value" (test-group "foreign value"
(test 3 (c-value "1 + 2" 'integer)) (test 3 (c-value "1 + 2" integer))
) )
(test-group "foreign code" (test-group "foreign code"