diff --git a/cyclone.scm b/cyclone.scm index 3011faba..84db7e25 100644 --- a/cyclone.scm +++ b/cyclone.scm @@ -230,7 +230,7 @@ (if cc? (cond (program? -; TODO: (write `(DEBUG ,(lib:imports->objs (cdar input-program) "."))) + (write `(DEBUG ,(lib:imports->objs (cdar in-prog) "."))) (system ;; -I is a hack, real answer is to use 'make install' to place .h file ;TODO: n eed to link to object files from lib:import->obj-file diff --git a/examples/hello-library/hello.scm b/examples/hello-library/hello.scm index 98fc2aa8..1471293a 100644 --- a/examples/hello-library/hello.scm +++ b/examples/hello-library/hello.scm @@ -1,9 +1,9 @@ ; TODO: just adding temporarily until import is supported. ; idea is to try and see how the C code needs to change to (import ;(scheme base) - (libs lib2) + (libs lib1) ;(rename (prefix (libs lib1) test-)) ) ;(test-lib1-hello) -(write lib2-hello) +(write lib1-hello) diff --git a/examples/hello-library/libs/lib1.sld b/examples/hello-library/libs/lib1.sld index 03604856..9da42ce9 100644 --- a/examples/hello-library/libs/lib1.sld +++ b/examples/hello-library/libs/lib1.sld @@ -6,8 +6,8 @@ ;;; (define-library (libs lib1) (export lib1-hello) - (import (scheme base) - (scheme write) + (import ;(scheme base) + ;(scheme write) (libs lib2)) (begin (define (internal-func)