Add new global variable, `sf/default-declarations', which defines

extra declarations to be used in addition to those inside each file.

diff --git a/v7/src/sf/make.scm b/v7/src/sf/make.scm
index 6ffe36a2c9f3985cbe2ffbf05ea6b85b30735134..88859a3a42765badc362b70738022046c1195881 100644 (file)
--- 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.7 1988/12/13 13:11:32 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/sf/make.scm,v 4.8 1989/06/09 16:56:28 cph Rel $
 
-Copyright (c) 1988 Massachusetts Institute of Technology
+Copyright (c) 1988, 1989 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 7 '()))
\ No newline at end of file
+(add-system! (make-system "SF" 4 8 '()))
\ No newline at end of file

diff --git a/v7/src/sf/sf.pkg b/v7/src/sf/sf.pkg
index 73701d55ac3d5eb03e25e25b0084e401f79a3711..158afb53f147a8254b6817ea77cd4c9aeb546ce3 100644 (file)
--- a/v7/src/sf/sf.pkg
+++ b/v7/src/sf/sf.pkg
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/sf/sf.pkg,v 4.4 1989/05/08 23:04:02 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/sf/sf.pkg,v 4.5 1989/06/09 16:56:32 cph Rel $
 
 Copyright (c) 1987 Massachusetts Institute of Technology
 
@@ -61,6 +61,7 @@ MIT in each case. |#
   (export ()
          sf
          sf/add-file-declarations!
+         sf/default-declarations
          sf/default-syntax-table
          sf/pathname-defaulting
          sf/set-default-syntax-table!

diff --git a/v7/src/sf/toplev.scm b/v7/src/sf/toplev.scm
index 5bf3cfd165d25713f7c055084de4e6a2cbdb7f54..de8df89941ddc34ca1c06af15fdfd11c832e91f3 100644 (file)
--- a/v7/src/sf/toplev.scm
+++ b/v7/src/sf/toplev.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/sf/toplev.scm,v 4.3 1988/10/30 14:27:50 jinx Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/sf/toplev.scm,v 4.4 1989/06/09 16:56:35 cph Rel $
 
 Copyright (c) 1988 Massachusetts Institute of Technology
 
@@ -97,7 +97,7 @@ Currently only the 68000 implementation needs this."
   (pathname-map/lookup file-info/declarations
                       pathname
                       identity-procedure
-                      (lambda () '())))
+                      (lambda () sf/default-declarations)))
 
 (define (pathname/normalize pathname)
   (pathname-default-type (pathname->absolute-pathname (->pathname pathname))
@@ -112,6 +112,9 @@ Currently only the 68000 implementation needs this."
 (define sf/default-syntax-table
   false)
 
+(define sf/default-declarations
+  '())
+
 (define sf/top-level-definitions
   '())
 

diff --git a/v8/src/sf/make.scm b/v8/src/sf/make.scm
index 0598bd669167e42bc22680c2d4e458009ade4f89..a6481888ef7441796e731eb72a6425ac6cc5e85f 100644 (file)
--- 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.7 1988/12/13 13:11:32 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/sf/make.scm,v 4.8 1989/06/09 16:56:28 cph Rel $
 
-Copyright (c) 1988 Massachusetts Institute of Technology
+Copyright (c) 1988, 1989 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 7 '()))
\ No newline at end of file
+(add-system! (make-system "SF" 4 8 '()))
\ No newline at end of file

diff --git a/v8/src/sf/toplev.scm b/v8/src/sf/toplev.scm
index 36b05262020a1e4087a49a46f5975792b66fbf86..d0d353e79f1ddaca27f47c09140199fee8de381c 100644 (file)
--- a/v8/src/sf/toplev.scm
+++ b/v8/src/sf/toplev.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/sf/toplev.scm,v 4.3 1988/10/30 14:27:50 jinx Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/sf/toplev.scm,v 4.4 1989/06/09 16:56:35 cph Rel $
 
 Copyright (c) 1988 Massachusetts Institute of Technology
 
@@ -97,7 +97,7 @@ Currently only the 68000 implementation needs this."
   (pathname-map/lookup file-info/declarations
                       pathname
                       identity-procedure
-                      (lambda () '())))
+                      (lambda () sf/default-declarations)))
 
 (define (pathname/normalize pathname)
   (pathname-default-type (pathname->absolute-pathname (->pathname pathname))
@@ -112,6 +112,9 @@ Currently only the 68000 implementation needs this."
 (define sf/default-syntax-table
   false)
 
+(define sf/default-declarations
+  '())
+
 (define sf/top-level-definitions
   '())