From: Chris Hanson Date: Fri, 9 Jun 1989 16:56:35 +0000 (+0000) Subject: Add new global variable, `sf/default-declarations', which defines X-Git-Tag: 20090517-FFI~12015 X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=171697736c04bf588b458d84a870b54f4e1ab2e6;p=mit-scheme.git 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 6ffe36a2c..88859a3a4 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.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 73701d55a..158afb53f 100644 --- 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 5bf3cfd16..de8df8994 100644 --- 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 0598bd669..a6481888e 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.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 36b052620..d0d353e79 100644 --- 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 '())