From e51ca308ff1d92ef2d94d75f80513f782191de76 Mon Sep 17 00:00:00 2001 From: Justin Ethier Date: Mon, 11 May 2015 10:11:00 -0400 Subject: [PATCH] Renamed to 'imports' --- cgen.scm | 2 +- cyclone.scm | 5 ++--- 2 files changed, 3 insertions(+), 4 deletions(-) diff --git a/cgen.scm b/cgen.scm index 79d5fd19..5260ce89 100644 --- a/cgen.scm +++ b/cgen.scm @@ -916,7 +916,7 @@ "}\n")) 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) (let ((compiled-program (apply string-append diff --git a/cyclone.scm b/cyclone.scm index 239248f6..c05064b2 100644 --- a/cyclone.scm +++ b/cyclone.scm @@ -55,7 +55,6 @@ (define imports '()) (define lib-name '()) (define lib-exports '()) - (define lib-imports '()) (emit *c-file-header-comment*) ; Guarantee placement at top of C file @@ -67,7 +66,7 @@ (set! program? #f) (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! imports (lib:imports (car input-program))) (set! input-program (lib:body (car input-program)))) ((tagged-list? 'import (car input-program)) (set! imports (cdar input-program)) @@ -183,7 +182,7 @@ (exit))) (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 ;; TODO: longer-term, will be used to find where cyclone's data is installed