Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-05-24 20:45:06 +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) (define-library (cyclone foreign)
(import (import
(scheme base) (scheme base)
(scheme write) ;; TODO: debugging only! ;(scheme write) ;; TODO: debugging only!
;(scheme cyclone pretty-print) ;(scheme cyclone pretty-print)
(scheme cyclone util) (scheme cyclone util)
) )

10
scheme/cyclone/cgen.sld
View file

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