Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-07-11 06:47:37 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

First step to handle import's

Browse source
This commit is contained in:
Justin Ethier 2015-05-09 00:11:36 -04:00
parent 842ddb597b
commit a086afea2d
1 changed files with 6 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
cyclone.scm
View file

@ -52,6 +52,7 @@
(lambda (return) (lambda (return)
(define globals '()) (define globals '())
(define program? #t) ;; Are we building a program or a library? (define program? #t) ;; Are we building a program or a library?
(define imports '())
(define lib-name '()) (define lib-name '())
(define lib-exports '()) (define lib-exports '())
(define lib-imports '()) (define lib-imports '())
@ -67,8 +68,11 @@
(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! lib-imports (lib:imports (car input-program)))
(set! input-program (lib:body (car input-program))) (set! input-program (lib:body (car input-program))))
;(error "TODO: I do not know how to compile a library") ((tagged-list? 'import (car input-program))
(set! imports (cdar input-program))
(set! input-program (cdr input-program))
;(error (list 'imports (cdar input-program)))
)) ))
;; TODO: how to handle stdlib when compiling a library?? ;; TODO: how to handle stdlib when compiling a library??