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

Pass lib args to cgen

Browse source
This commit is contained in:
Justin Ethier 2015-05-06 13:14:08 -04:00
parent 87e175b542
commit cd45021b2b
2 changed files with 2 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
cgen.scm
View file

@ -937,7 +937,7 @@
"}\n")) "}\n"))
formals*)))) formals*))))
(define (mta:code-gen input-program globals) (define (mta:code-gen input-program globals program? lib-exports lib-imports)
(set! *global-syms* globals) (set! *global-syms* globals)
(let ((compiled-program (let ((compiled-program
(apply string-append (apply string-append

6
cyclone.scm
View file

@ -168,11 +168,7 @@
(exit))) (exit)))
(trace:info "---------------- C code:") (trace:info "---------------- C code:")
(mta:code-gen input-program globals) (mta:code-gen input-program globals program? lib-exports lib-imports)
; TODO: add as parameters above?
; (set! program? #f)
; (set! lib-exports (lib:exports (car input-program)))
; (set! lib-imports (lib:imports (car input-program)))
(return '())))) ;; No codes to return (return '())))) ;; No codes to return
;; TODO: longer-term, will be used to find where cyclone's data is installed ;; TODO: longer-term, will be used to find where cyclone's data is installed