Add FLOATING-VECTOR-xxx primitives.

diff --git a/v7/src/runtime/version.scm b/v7/src/runtime/version.scm
index 1bbcd37871ad4def4bb6e3e472cfd8ddd778c2c9..241963315e15b3f1bfd63f6a7d5d9779a88baadb 100644 (file)
--- a/v7/src/runtime/version.scm
+++ b/v7/src/runtime/version.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/version.scm,v 14.130 1991/08/11 15:24:37 jinx Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/version.scm,v 14.131 1991/08/14 02:09:12 jinx Exp $
 
 Copyright (c) 1988-91 Massachusetts Institute of Technology
 
@@ -45,7 +45,7 @@ MIT in each case. |#
                     '()))
   (add-system! microcode-system)
   (add-event-receiver! event:after-restore snarf-microcode-version!)
-  (add-identification! "Runtime" 14 130))
+  (add-identification! "Runtime" 14 131))
 
 (define microcode-system)
 

diff --git a/v7/src/sf/gconst.scm b/v7/src/sf/gconst.scm
index 47bcbcd7ad62fdcb5d37bbb1b1234c3f9cca1b6e..2d912a0227e75e30b7603f75fe690751aadb08d0 100644 (file)
--- a/v7/src/sf/gconst.scm
+++ b/v7/src/sf/gconst.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/sf/gconst.scm,v 4.11 1991/05/06 18:46:04 jinx Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/sf/gconst.scm,v 4.12 1991/08/14 02:08:29 jinx Exp $
 
 Copyright (c) 1987-91 Massachusetts Institute of Technology
 
@@ -138,6 +138,10 @@ MIT in each case. |#
     FLO:TAN
     FLO:TRUNCATE
     FLO:TRUNCATE->EXACT
+    FLO:VECTOR-CONS
+    FLO:VECTOR-LENGTH
+    FLO:VECTOR-REF
+    FLO:VECTOR-SET!
     FLO:ZERO?
     FORCE
     GENERAL-CAR-CDR

diff --git a/v7/src/sf/make.scm b/v7/src/sf/make.scm
index 89119608a58cd5a5eb7d2a2fd649dd821873fef3..8f40ed1c90d34ed66cf96537a11be8237d43bad8 100644 (file)
--- a/v7/src/sf/make.scm
+++ b/v7/src/sf/make.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/sf/make.scm,v 4.18 1991/07/19 03:46:14 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/sf/make.scm,v 4.19 1991/08/14 02:08:09 jinx Exp $
 
 Copyright (c) 1988-91 Massachusetts Institute of Technology
 
@@ -39,4 +39,4 @@ MIT in each case. |#
 (package/system-loader "sf" '() 'QUERY)
 ((package/reference (find-package '(SCODE-OPTIMIZER))
                    'USUAL-INTEGRATIONS/CACHE!))
-(add-system! (make-system "SF" 4 18 '()))
\ No newline at end of file
+(add-system! (make-system "SF" 4 19 '()))
\ No newline at end of file

diff --git a/v8/src/sf/make.scm b/v8/src/sf/make.scm
index 05219966f61d69670168e65db647d053ffca1563..27ebc04546f72bdaef5a232943c2036f794e0037 100644 (file)
--- a/v8/src/sf/make.scm
+++ b/v8/src/sf/make.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/sf/make.scm,v 4.18 1991/07/19 03:46:14 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/sf/make.scm,v 4.19 1991/08/14 02:08:09 jinx Exp $
 
 Copyright (c) 1988-91 Massachusetts Institute of Technology
 
@@ -39,4 +39,4 @@ MIT in each case. |#
 (package/system-loader "sf" '() 'QUERY)
 ((package/reference (find-package '(SCODE-OPTIMIZER))
                    'USUAL-INTEGRATIONS/CACHE!))
-(add-system! (make-system "SF" 4 18 '()))
\ No newline at end of file
+(add-system! (make-system "SF" 4 19 '()))
\ No newline at end of file