First step to handle import's

This commit is contained in:
Justin Ethier 2015-05-09 00:11:36 -04:00
parent 842ddb597b
commit a086afea2d

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??