* moved date-string to ikarus.date-string.ss

src/ikarus.core.ss

@@ -16,11 +16,6 @@
   (lambda (x)
     (pointer-value x)))
 
-(primitive-set! 'date-string
-  (lambda ()
-    (let ([s (make-string 10)])
-      (foreign-call "ikrt_strftime" s "%F")
-      s)))
 
 
 )

src/ikarus.date-string.ss

@@ -0,0 +1,9 @@
+
+(library (ikarus date-string)
+  (export date-string)
+  (import (except (ikarus) date-string))
+  (define date-string
+    (lambda ()
+      (let ([s (make-string 10)])
+        (foreign-call "ikrt_strftime" s "%F")
+        s))))

src/makefile.ss

@@ -35,6 +35,7 @@
       "ikarus.chars.ss"
       "ikarus.records.ss"
       "ikarus.strings.ss"
+      "ikarus.date-string.ss"
       "ikarus.symbols.ss"
       "ikarus.vectors.ss"
       "ikarus.numerics.ss"