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

Fixup c-value to work with new macro

Browse source
This commit is contained in:
Justin Ethier 2020-05-04 22:59:51 -04:00
parent cdeeef8b27
commit 8fef2ec1ab
2 changed files with 5 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
libs/cyclone/foreign.sld
View file

@ -9,7 +9,7 @@
(define-library (cyclone foreign)
(import
(scheme base)
(scheme write) ;; TODO: debugging only!
;(scheme write) ;; TODO: debugging only!
;(scheme cyclone pretty-print)
(scheme cyclone util)
)

10
scheme/cyclone/cgen.sld
View file

@ -994,12 +994,10 @@
args))
((eq? 'Cyc-foreign-value fun)
(c->scm (car args) (cadr args))
;(c:code/vars
; (string-append
; "obj_int2obj(" (car args) ")")
; (list))
)
(let ((kons (c->scm (car args) (cadr args))))
(c:code/vars
(cdr kons)
(list (car kons)))))
((prim? fun)
(let* ((c-fun