From a086afea2df83f623c2e133043e2830abf550d1e Mon Sep 17 00:00:00 2001 From: Justin Ethier Date: Sat, 9 May 2015 00:11:36 -0400 Subject: [PATCH] First step to handle import's --- cyclone.scm | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) diff --git a/cyclone.scm b/cyclone.scm index 4f37f026..239248f6 100644 --- a/cyclone.scm +++ b/cyclone.scm @@ -52,6 +52,7 @@ (lambda (return) (define globals '()) (define program? #t) ;; Are we building a program or a library? + (define imports '()) (define lib-name '()) (define lib-exports '()) (define lib-imports '()) @@ -67,8 +68,11 @@ (set! lib-name (lib:name (car input-program))) (set! lib-exports (lib:exports (car input-program))) (set! lib-imports (lib:imports (car input-program))) - (set! input-program (lib:body (car input-program))) - ;(error "TODO: I do not know how to compile a library") + (set! input-program (lib:body (car input-program)))) + ((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??