mirror of
https://github.com/justinethier/cyclone.git
synced 2025-05-24 04:25:06 +02:00
Merge pull request #397 from arthurmaciel/patch-7
Renamed 'cvoid' to 'c-void'
This commit is contained in:
commit
c3c141960d
1 changed files with 2 additions and 2 deletions
|
@ -117,7 +117,7 @@
|
||||||
(string-append "(((bytevector_type *)" ,code ")->data)"))
|
(string-append "(((bytevector_type *)" ,code ")->data)"))
|
||||||
((opaque)
|
((opaque)
|
||||||
(string-append "opaque_ptr(" ,code ")"))
|
(string-append "opaque_ptr(" ,code ")"))
|
||||||
((cvoid)
|
((c-void)
|
||||||
"Cyc_VOID")
|
"Cyc_VOID")
|
||||||
(else
|
(else
|
||||||
(error "scm->c unable to convert scheme object of type " ,type)))))))
|
(error "scm->c unable to convert scheme object of type " ,type)))))))
|
||||||
|
@ -180,7 +180,7 @@
|
||||||
(string-append
|
(string-append
|
||||||
"make_c_opaque(" var ", " ,code ");")
|
"make_c_opaque(" var ", " ,code ");")
|
||||||
(string-append "&" var))))
|
(string-append "&" var))))
|
||||||
((cvoid)
|
((c-void)
|
||||||
(cons
|
(cons
|
||||||
(string-append ,code ";")
|
(string-append ,code ";")
|
||||||
"Cyc_VOID"))
|
"Cyc_VOID"))
|
||||||
|
|
Loading…
Add table
Reference in a new issue