From: Chris Hanson <org/chris-hanson/cph>
Date: Sat, 25 Apr 1987 20:19:20 +0000 (+0000)
Subject: Install new built-in primitives for microcode 9.46.
X-Git-Tag: 20090517-FFI~13584
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=79e7659508a9803ad51a8226ad79f68d16bc5b83;p=mit-scheme.git

Install new built-in primitives for microcode 9.46.
---

diff --git a/v7/src/runtime/bitstr.scm b/v7/src/runtime/bitstr.scm
index 932b9ecdc..42d49cec2 100644
--- 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 e69bffd72..a92409121 100644
--- 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))
-
+#|
 ;;; Nonstandard Primitives
 
 (let-syntax ((check-type
@@ -119,7 +120,7 @@
   (check-subvector vector start end)
   (loop start))
 
-)
+)|#
 
 ;;; Nonstandard Procedures