From: Chris Hanson <org/chris-hanson/cph>
Date: Sat, 20 Apr 1991 06:21:12 +0000 (+0000)
Subject: Can't integrate scode-eval any longer, since it's now a compound
X-Git-Tag: 20090517-FFI~10741
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=b756d9f120957a448d1bceb3f6d429f5af16d723;p=mit-scheme.git

Can't integrate scode-eval any longer, since it's now a compound
procedure.  This was overlooked by accident because "usicon" used
scode-constant? to test whether the constants in "gconst" were
reasonable -- and this predicate returns true for compiled procedures.
Now the predicate used is something more discriminating, which should
not permit unreasonable values in the .bin file.
---

diff --git a/v7/src/sf/make.scm b/v7/src/sf/make.scm
index 5697af211..aba8fb361 100644
--- a/v7/src/sf/make.scm
+++ b/v7/src/sf/make.scm
@@ -1,8 +1,8 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/sf/make.scm,v 4.15 1990/10/16 21:07:02 cph Rel $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/sf/make.scm,v 4.16 1991/04/20 06:21:12 cph Exp $
 
-Copyright (c) 1988, 1989, 1990 Massachusetts Institute of Technology
+Copyright (c) 1988-91 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -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 15 '()))
\ No newline at end of file
+(add-system! (make-system "SF" 4 16 '()))
\ No newline at end of file
diff --git a/v8/src/sf/make.scm b/v8/src/sf/make.scm
index e4fa5ba48..b04abd35b 100644
--- a/v8/src/sf/make.scm
+++ b/v8/src/sf/make.scm
@@ -1,8 +1,8 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/sf/make.scm,v 4.15 1990/10/16 21:07:02 cph Rel $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/sf/make.scm,v 4.16 1991/04/20 06:21:12 cph Exp $
 
-Copyright (c) 1988, 1989, 1990 Massachusetts Institute of Technology
+Copyright (c) 1988-91 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -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 15 '()))
\ No newline at end of file
+(add-system! (make-system "SF" 4 16 '()))
\ No newline at end of file