removed vector-memq and vector-memv since they were not used anywhere

lib/libcompile.ss

@@ -106,7 +106,6 @@
     [$vector-length     1   value]
     [$vector-ref        2   value]
     [$vector-set!       3   effect]
-    [$vector-memq       2   value]
     ;;; strings
     [$make-string       1   value]
     [$string          any   value]

lib/libcore.ss

@@ -866,18 +866,6 @@ reference-implementation:
      (lambda (x ls)
        (race ls ls ls x))))
 
-(primitive-set! 'vector-memq
-  (lambda (x v)
-    (if (vector? v)
-        (let f ([x x] [v v] [n ($vector-length v)] [i 0])
-          (and ($fx< i n)
-               (or (eq? x ($vector-ref v i))
-                   (f x v n ($fxadd1 i)))))
-        (error 'vector-memq "~s is not a vector" v))))
-
-#|BUG: memv should be defined in terms of eqv? now that we have
-bignums.|#
-
 (primitive-set! 'memv
   (letrec ([race
             (lambda (h t ls x)
@@ -901,8 +889,6 @@ bignums.|#
        (race ls ls ls x))))
 
 
-(primitive-set! 'vector-memv vector-memq)
- 
 (primitive-set! 'list->string
   (letrec ([race
             (lambda (h t ls n)

lib/makefile.ss

@@ -142,7 +142,7 @@ $closure-code
     $set-tcbucket-tconc!  $tcbucket-dlink-prev $tcbucket-dlink-next
     $set-tcbucket-dlink-prev!  $set-tcbucket-dlink-next!  call/cf
     trace-symbol! untrace-symbol! make-traced-procedure
-    fixnum->string vector-memq vector-memv
+    fixnum->string 
 
     ;;; TODO: must open-code