* string-ref moved to ikarus.strings.

src/ikarus.core.ss

@@ -162,16 +162,6 @@ description:
 
 
 
-(primitive-set! 'string-ref 
-  (lambda (s i) 
-    (unless (string? s) 
-      (error 'string-ref "~s is not a string" s))
-    (unless (fixnum? i)
-      (error 'string-ref "~s is not a valid index" i))
-    (unless (and ($fx< i ($string-length s))
-                 ($fx<= 0 i))
-      (error 'string-ref "index ~s is out of range for ~s" i s))
-    ($string-ref s i)))
 
 
 

src/ikarus.numerics.ss

@@ -14,6 +14,7 @@
         [(fixnum? x) #f]
         [else (error 'fxzero? "~s is not a fixnum" x)]))))
 
+
 (library (ikarus flonums)
   (export string->flonum flonum->string)
   (import 

src/ikarus.strings.ss

@@ -0,0 +1,15 @@
+
+(library (ikarus strings)
+  (export string-ref)
+  (import 
+    (except (ikarus) string-ref)
+    (only (scheme) $string-ref $fx<= $fx< $string-length))
+  (define (string-ref s i)
+    (unless (string? s) 
+      (error 'string-ref "~s is not a string" s))
+    (unless (fixnum? i)
+      (error 'string-ref "~s is not a valid index" i))
+    (unless (and ($fx< i ($string-length s))
+                 ($fx<= 0 i))
+      (error 'string-ref "index ~s is out of range for ~s" i s))
+    ($string-ref s i)))

src/makefile.ss

@@ -28,6 +28,7 @@
       "ikarus.collect.ss"
       "ikarus.records.ss"
       "ikarus.cxr.ss"
+      "ikarus.strings.ss"
       "ikarus.numerics.ss"
       "ikarus.guardians.ss"