* moved string-length to ikarus.strings

src/ikarus.core.ss

@@ -72,11 +72,6 @@
 
 
 
-(primitive-set! 'string-length
-  (lambda (x)
-    (unless (string? x)
-      (error 'string-length "~s is not a string" x))
-    ($string-length x)))
 
 
 (primitive-set! 'string->list

src/ikarus.strings.ss

@@ -1,11 +1,20 @@
 
 (library (ikarus strings)
-  (export string-ref make-string)
+  (export string-length string-ref make-string)
   (import 
-    (except (ikarus) string-ref make-string)
+    (except (ikarus) string-length string-ref make-string)
-    (only (scheme) $string-ref $fx+ $fx= $fx<= $fx< $string-length
+    (only (scheme) 
+          $fx+ $fx= $fx<= $fx< $string-length $string-ref 
           $make-string $string-set!))
 
+
+  (define string-length
+    (lambda (x)
+      (unless (string? x)
+        (error 'string-length "~s is not a string" x))
+      ($string-length x)))
+
+
   (define (string-ref s i)
     (unless (string? s) 
       (error 'string-ref "~s is not a string" s))