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

Added 'foreign-code' macro

Browse source
This commit is contained in:
Justin Ethier 2020-04-16 19:05:19 -04:00
parent 1a797b154b
commit 1adb0e290d
1 changed files with 10 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
libs/cyclone/foreign.sld
View file

@ -13,7 +13,7 @@
) )
;(include-c-header "<ck_pr.h>") ;(include-c-header "<ck_pr.h>")
(export (export
;; TODO foreign-code
) )
(begin (begin
;; TODO: internal to compiler? Anything to define in this library?? ;; TODO: internal to compiler? Anything to define in this library??
@ -49,6 +49,14 @@
; ))))) ; )))))
TODO: macros for foreign-value, foreign-code (define-syntax foreign-code
(er-macro-transformer
(lambda (expr rename compare)
(for-each
(lambda (arg)
(if (not (string? arg))
(error "foreign-code" "Invalid argument: string expected, received " arg)))
(cdr expr))
`(Cyc-foreign-code ,@(cdr expr)))))
) )
) )