Install new built-in primitives for microcode 9.46.

diff --git a/v7/src/runtime/bitstr.scm b/v7/src/runtime/bitstr.scm
index 932b9ecdc9be465e41488b3f7fe140579fae472d..42d49cec26f4943c4df28138dcabfe8b6ace2d30 100644 (file)
--- a/v7/src/runtime/bitstr.scm
+++ b/v7/src/runtime/bitstr.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;    $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/bitstr.scm,v 13.41 1987/01/23 00:09:36 jinx Exp $
+;;;    $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/bitstr.scm,v 13.42 1987/04/25 20:18:51 cph Exp $
 ;;;
 ;;;    Copyright (c) 1987 Massachusetts Institute of Technology
 ;;;
@@ -56,7 +56,8 @@
    bit-string-or! bit-string-and! bit-string-andc!
    bit-substring-move-right!
    bit-string->unsigned-integer unsigned-integer->bit-string
-   read-bits! write-bits!)))
+   read-bits! write-bits!
+   bit-substring-find-next-set-bit)))
 
 (define (bit-string-append x y)
   (let ((x-length (bit-string-length x))
@@ -82,5 +83,4 @@
        (nbits (bit-string-length bit-string)))
     (if (bit-string-ref bit-string (-1+ nbits))        ;Sign bit.
        (- unsigned-result (expt 2 nbits))
-       unsigned-result)))
        unsigned-result)))
\ No newline at end of file

diff --git a/v7/src/runtime/vector.scm b/v7/src/runtime/vector.scm
index e69bffd72295060a838349c58cda41ac8dbc00f2..a924091217d5a3da7800af4d9cec9f604c43c46d 100644 (file)
--- a/v7/src/runtime/vector.scm
+++ b/v7/src/runtime/vector.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;    $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/vector.scm,v 13.42 1987/03/17 18:55:01 cph Exp $
+;;;    $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/vector.scm,v 13.43 1987/04/25 20:19:20 cph Exp $
 ;;;
 ;;;    Copyright (c) 1987 Massachusetts Institute of Technology
 ;;;
@@ -51,7 +51,8 @@
                   names)))
   (define-primitives
    vector-length vector-ref vector-set!
-   list->vector vector-cons subvector->list)))
+   list->vector vector-cons subvector->list
+   subvector-move-right! subvector-move-left! subvector-fill!)))
 
 (let-syntax ()
   (define-macro (define-type-predicate name type-name)
@@ -71,7 +72,7 @@
 
 (define (vector-fill! vector value)
   (subvector-fill! vector 0 (vector-length vector) value))
-\f
+\f#|
 ;;; Nonstandard Primitives
 
 (let-syntax ((check-type
@@ -119,7 +120,7 @@
   (check-subvector vector start end)
   (loop start))
 
-)
+)|#
 \f
 ;;; Nonstandard Procedures