Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-07-12 15:27:36 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Renamed to 'imports'

Browse source
This commit is contained in:
Justin Ethier 2015-05-11 10:11:00 -04:00
parent a086afea2d
commit e51ca308ff
2 changed files with 3 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
cgen.scm
View file

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

5
cyclone.scm
View file

@ -55,7 +55,6 @@
(define imports '()) (define imports '())
(define lib-name '()) (define lib-name '())
(define lib-exports '()) (define lib-exports '())
(define lib-imports '())
(emit *c-file-header-comment*) ; Guarantee placement at top of C file (emit *c-file-header-comment*) ; Guarantee placement at top of C file
@ -67,7 +66,7 @@
(set! program? #f) (set! program? #f)
(set! lib-name (lib:name (car input-program))) (set! lib-name (lib:name (car input-program)))
(set! lib-exports (lib:exports (car input-program))) (set! lib-exports (lib:exports (car input-program)))
(set! lib-imports (lib:imports (car input-program))) (set! imports (lib:imports (car input-program)))
(set! input-program (lib:body (car input-program)))) (set! input-program (lib:body (car input-program))))
((tagged-list? 'import (car input-program)) ((tagged-list? 'import (car input-program))
(set! imports (cdar input-program)) (set! imports (cdar input-program))
@ -183,7 +182,7 @@
(exit))) (exit)))
(trace:info "---------------- C code:") (trace:info "---------------- C code:")
(mta:code-gen input-program globals program? lib-name lib-exports lib-imports) (mta:code-gen input-program globals program? lib-name lib-exports imports)
(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