~ chicken-core (chicken-5) 439fe437790a37771d4cdd5d6394f2dec20d12e1

commit 439fe437790a37771d4cdd5d6394f2dec20d12e1
Author:     Evan Hanson <evhan@foldling.org>
AuthorDate: Fri Jan 1 23:09:35 2016 +1300
Commit:     Evan Hanson <evhan@foldling.org>
CommitDate: Tue Mar 8 22:52:32 2016 +1300

    Collect the "unit-name" declaration argument as a symbol

diff --git a/batch-driver.scm b/batch-driver.scm
index 040858c5..1befcae0 100644
--- a/batch-driver.scm
+++ b/batch-driver.scm
@@ -219,7 +219,7 @@
 	(kwstyle (memq 'keyword-style options))
         (loop/dispatch (memq 'clustering options))
 	(uses-units '())
-	(uunit (memq 'unit options))
+	(unit (memq 'unit options))
 	(a-only (memq 'analyze-only options))
 	(dynamic (memq 'dynamic options))
 	(do-scrutinize #t)
@@ -298,8 +298,8 @@
 		  no contf) )
 	  db) ) )
 
-    (when uunit
-      (set! unit-name (string->c-identifier (stringify (option-arg uunit)))) )
+    (when unit
+      (set! unit-name (string->symbol (option-arg unit))))
     (when (or unit-name dynamic)
       (set! standalone-executable #f))
     (when (memq 'ignore-repository options)