Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-05-24 12:35: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 (export
c-code c-code
c-value c-value
c-defun c-define
c->scm c->scm
scm->c scm->c
) )
@ -111,7 +111,7 @@
(error "c->scm unable to convert C object of type " ,type))))))) (error "c->scm unable to convert C object of type " ,type)))))))
;(pretty-print ( ;(pretty-print (
(define-syntax c-defun (define-syntax c-define
(er-macro-transformer (er-macro-transformer
(lambda (expr rename compare) (lambda (expr rename compare)
(let* ((scm-fnc (cadr expr)) (let* ((scm-fnc (cadr expr))
@ -151,7 +151,7 @@
) )
`(define-c ,scm-fnc ,args ,body) `(define-c ,scm-fnc ,args ,body)
)))) ))))
; '(c-defun scm-strlen int "strlen" string) ; '(c-define scm-strlen int "strlen" string)
; list ; list
; list)) ; list))

4
libs/test-foreign.scm
View file

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