From 493c1373faa5452456169b6e2efee222bb8b474e Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Tue, 10 Apr 1990 15:46:39 +0000 Subject: [PATCH] Force top-level syntax definitions to be local to the file in which they appear. --- v7/src/sf/make.scm | 4 ++-- v7/src/sf/toplev.scm | 11 ++++++----- v8/src/sf/make.scm | 4 ++-- v8/src/sf/toplev.scm | 11 ++++++----- 4 files changed, 16 insertions(+), 14 deletions(-) diff --git a/v7/src/sf/make.scm b/v7/src/sf/make.scm index 1fb57d527..822bdd235 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.10 1990/03/26 20:49:53 jinx Exp $ +$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 $ 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 10 '())) \ No newline at end of file +(add-system! (make-system "SF" 4 11 '())) \ No newline at end of file diff --git a/v7/src/sf/toplev.scm b/v7/src/sf/toplev.scm index 6744c8ff2..8bdb981de 100644 --- a/v7/src/sf/toplev.scm +++ b/v7/src/sf/toplev.scm @@ -1,8 +1,8 @@ #| -*-Scheme-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/sf/toplev.scm,v 4.6 1990/03/26 20:44:52 jinx Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/sf/toplev.scm,v 4.7 1990/04/10 15:46:39 cph Rel $ -Copyright (c) 1988, 1989 Massachusetts Institute of Technology +Copyright (c) 1988, 1989, 1990 Massachusetts Institute of Technology This material was developed by the Scheme project at the Massachusetts Institute of Technology, Department of Electrical Engineering and @@ -380,9 +380,10 @@ Currently only the 68000 implementation needs this." (define (phase:syntax s-expression #!optional syntax-table) (mark-phase "Syntax") (syntax* s-expression - (if (or (default-object? syntax-table) (not syntax-table)) - (make-syntax-table system-global-syntax-table) - syntax-table))) + (make-syntax-table + (if (or (default-object? syntax-table) (not syntax-table)) + system-global-syntax-table + syntax-table)))) (define (phase:transform scode) (mark-phase "Transform") diff --git a/v8/src/sf/make.scm b/v8/src/sf/make.scm index 1b0e22e2a..d1f5fa01c 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.10 1990/03/26 20:49:53 jinx Exp $ +$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 $ 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 10 '())) \ No newline at end of file +(add-system! (make-system "SF" 4 11 '())) \ No newline at end of file diff --git a/v8/src/sf/toplev.scm b/v8/src/sf/toplev.scm index ae718ec0c..e87b3e7ea 100644 --- a/v8/src/sf/toplev.scm +++ b/v8/src/sf/toplev.scm @@ -1,8 +1,8 @@ #| -*-Scheme-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/sf/toplev.scm,v 4.6 1990/03/26 20:44:52 jinx Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/sf/toplev.scm,v 4.7 1990/04/10 15:46:39 cph Rel $ -Copyright (c) 1988, 1989 Massachusetts Institute of Technology +Copyright (c) 1988, 1989, 1990 Massachusetts Institute of Technology This material was developed by the Scheme project at the Massachusetts Institute of Technology, Department of Electrical Engineering and @@ -380,9 +380,10 @@ Currently only the 68000 implementation needs this." (define (phase:syntax s-expression #!optional syntax-table) (mark-phase "Syntax") (syntax* s-expression - (if (or (default-object? syntax-table) (not syntax-table)) - (make-syntax-table system-global-syntax-table) - syntax-table))) + (make-syntax-table + (if (or (default-object? syntax-table) (not syntax-table)) + system-global-syntax-table + syntax-table)))) (define (phase:transform scode) (mark-phase "Transform") -- 2.25.1