* added (ikarus command-line) library that exports command-line-arguments

src/ikarus.command-line.ss

@@ -0,0 +1,14 @@
+
+(library (ikarus command-line)
+  (export command-line-arguments)
+  (import (only (scheme) $arg-list)
+          (except (ikarus) command-line-arguments))
+
+  (define command-line-arguments
+    (make-parameter ($arg-list)
+      (lambda (x)
+        (if (and (list? x) (andmap string? x))
+            x
+            (error 'command-list 
+              "invalid command-line-arguments ~s\n" x))))))
+

src/ikarus.core.ss

@@ -65,19 +65,4 @@
       s)))
 
 
-(primitive-set! 'command-line-arguments
-  (make-parameter ($arg-list)
-    (lambda (x)
-      (if (and (list? x) (andmap string? x))
-          x
-          (error 'command-list "invalid command-line-arguments ~s\n" x)))))
-
-
-
-
-
-
-
-
-
 )

src/makefile.ss

@@ -37,6 +37,8 @@
       "ikarus.numerics.ss"
       "ikarus.guardians.ss"
 
+      "ikarus.command-line.ss"
+
       "ikarus.core.ss"
       "libchezio.ss"
       "libhash.ss"