~ chicken-core (chicken-5) 8fe52bc30b70d294453882482d30b59d7f3c584c

commit 8fe52bc30b70d294453882482d30b59d7f3c584c
Author:     Evan Hanson <evhan@foldling.org>
AuthorDate: Tue Feb 9 07:35:28 2016 +1300
Commit:     Evan Hanson <evhan@foldling.org>
CommitDate: Tue Mar 8 22:52:35 2016 +1300

    Remove the dynamic unit compilation warning
    
    This is perfectly valid now.

diff --git a/batch-driver.scm b/batch-driver.scm
index 333ef113..12f591e4 100644
--- a/batch-driver.scm
+++ b/batch-driver.scm
@@ -617,10 +617,6 @@
 	     (when (debugging 'n "line number database:")
 	       (display-line-number-database) )
 
-	     (when (and unit-name dynamic)
-	       (##sys#notice 
-		(sprintf "library unit `~a' compiled in dynamic mode" unit-name) ) )
-
 	     (set! ##sys#line-number-database line-number-database-2)
 	     (set! line-number-database-2 #f)
 
diff --git a/c-backend.scm b/c-backend.scm
index 687efb19..e3958c25 100644
--- a/c-backend.scm
+++ b/c-backend.scm
@@ -539,13 +539,11 @@
 	      "")
 	     "   command line: ")
 	(gen-list user-supplied-options)
-	(gen #t)
-	(cond
-	  (unit-name
-	   (gen "   unit: " unit-name))
-	  (else
-	   (gen "   used units: ")
-	   (gen-list used-units)))
+	(unless (not unit-name)
+	  (gen #t "   unit: " unit-name))
+	(unless (null? used-units)
+	  (gen #t "   uses: ")
+	  (gen-list used-units))
 	(gen #t "*/" #t #t "#include \"" target-include-file "\"")
 	(when external-protos-first
 	  (generate-foreign-callback-stub-prototypes foreign-callback-stubs) )