From 0a3cff1f25dfbe5a665025c092572a08b7c8629b Mon Sep 17 00:00:00 2001 From: "Guillermo J. Rozas" Date: Wed, 14 Aug 1991 02:09:12 +0000 Subject: [PATCH] Add FLOATING-VECTOR-xxx primitives. --- v7/src/runtime/version.scm | 4 ++-- v7/src/sf/gconst.scm | 6 +++++- v7/src/sf/make.scm | 4 ++-- v8/src/sf/make.scm | 4 ++-- 4 files changed, 11 insertions(+), 7 deletions(-) diff --git a/v7/src/runtime/version.scm b/v7/src/runtime/version.scm index 1bbcd3787..241963315 100644 --- 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 47bcbcd7a..2d912a022 100644 --- 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 89119608a..8f40ed1c9 100644 --- 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 05219966f..27ebc0454 100644 --- 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 -- 2.25.1