WIP

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

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)

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)