From: Guillermo J. Rozas <edu/mit/csail/zurich/gjr>
Date: Mon, 11 Jun 1990 16:34:32 +0000 (+0000)
Subject: Fix transform/definition in xform.scm to allow non-scanned top-level
X-Git-Tag: 20090517-FFI~11400
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=7b1e0a2c0cf5e0e200bc73917751ecd75a1887ab;p=mit-scheme.git

Fix transform/definition in xform.scm to allow non-scanned top-level
definitions.  The arise due to in-package.
---

diff --git a/v7/src/sf/make.scm b/v7/src/sf/make.scm
index 822bdd235..1b6c8cfa7 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.11 1990/04/10 15:46:20 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/sf/make.scm,v 4.12 1990/06/11 16:34:32 jinx Exp $
 
 Copyright (c) 1988, 1989, 1990 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 11 '()))
\ No newline at end of file
+(add-system! (make-system "SF" 4 12 '()))
\ No newline at end of file
diff --git a/v8/src/sf/make.scm b/v8/src/sf/make.scm
index d1f5fa01c..77906c077 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.11 1990/04/10 15:46:20 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/sf/make.scm,v 4.12 1990/06/11 16:34:32 jinx Exp $
 
 Copyright (c) 1988, 1989, 1990 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 11 '()))
\ No newline at end of file
+(add-system! (make-system "SF" 4 12 '()))
\ No newline at end of file