Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-05-23 20:15:05 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Rename macro to "c-define" per discussion w/Arthur

Browse source
This commit is contained in:
Justin Ethier 2020-04-30 11:21:30 -04:00
parent ebeb0e8651
commit ca06ad2b0b
2 changed files with 5 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
libs/cyclone/foreign.sld
View file

@ -17,7 +17,7 @@
(export
c-code
c-value
c-defun
c-define
c->scm
scm->c
)
@ -111,7 +111,7 @@
(error "c->scm unable to convert C object of type " ,type)))))))
;(pretty-print (
(define-syntax c-defun
(define-syntax c-define
(er-macro-transformer
(lambda (expr rename compare)
(let* ((scm-fnc (cadr expr))
@ -151,7 +151,7 @@
)
`(define-c ,scm-fnc ,args ,body)
))))
; '(c-defun scm-strlen int "strlen" string)
; '(c-define scm-strlen int "strlen" string)
; list
; list))

4
libs/test-foreign.scm
View file

@ -27,8 +27,8 @@
)
;; Must be top-level
(c-defun scm-strlen int "strlen" string)
(c-defun scm-strlend double "strlen" string)
(c-define scm-strlen int "strlen" string)
(c-define scm-strlend double "strlen" string)
(test-group "foreign lambda"
(test 15 (scm-strlen "testing 1, 2, 3"))