* moved "not" to ikarus.predicates

(rationale: (not x) == (false? x))

src/ikarus.core.ss

@@ -27,23 +27,6 @@
     ($char->fixnum x)))
   
 
-
-(primitive-set! 'vector-length
-  (lambda (x)
-    (unless (vector? x) 
-      (error 'vector-length "~s is not a vector" x))
-    ($vector-length x)))
-
-
-
-
-
-
-
-
-
-(primitive-set! 'not 
-  (lambda (x) (if x #f #t)))
   
 
 

src/ikarus.predicates.ss

@@ -3,14 +3,14 @@
 
   (export fixnum? flonum? bignum? number? complex? real? rational?
           integer? exact? eof-object? immediate? boolean? char?
-          vector? string? procedure? null? pair? symbol?) 
+          vector? string? procedure? null? pair? symbol? not) 
 
   (import 
 
     (except (ikarus) fixnum? flonum? bignum? number? complex? real?
             rational? integer? exact? eof-object?  immediate?
             boolean?  char?  vector?  string?  procedure?  null?
-            pair? symbol?)
+            pair? symbol? not)
 
     (rename (only (ikarus) fixnum? flonum? bignum? eof-object?
               immediate? boolean? char? vector? string? procedure? 
@@ -86,4 +86,5 @@
   (define pair? (lambda (x) (sys:pair? x)))
   (define symbol? (lambda (x) (sys:symbol? x)))
 
+  (define not (lambda (x) (if x #f #t)))
   )

src/ikarus.vectors.ss

@@ -1,11 +1,18 @@
 
 (library (ikarus vectors)
-  (export make-vector)
+  (export make-vector vector-length)
   (import 
-    (except (ikarus) make-vector)
+    (except (ikarus) make-vector vector-length)
     (only (scheme)
           $fx= $fx>= $fx+ $vector-set! 
-          $make-vector))
+          $make-vector $vector-length))
+
+
+  (define vector-length
+    (lambda (x)
+      (unless (vector? x) 
+        (error 'vector-length "~s is not a vector" x))
+      ($vector-length x)))
 
   (module (make-vector)
     (define fill!