From ea27c7af55d041ac9bc10a9769e0cef8a443ac9d Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Wed, 2 Nov 1988 21:52:31 +0000 Subject: [PATCH] Add definition of `compiler:default-top-level-declarations', used by declaration processor. This is used to force defaults, and may also be fluid bound to provide special defaults. --- v7/src/compiler/base/switch.scm | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/v7/src/compiler/base/switch.scm b/v7/src/compiler/base/switch.scm index 5ccd10318..555e5dd82 100644 --- a/v7/src/compiler/base/switch.scm +++ b/v7/src/compiler/base/switch.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/base/switch.scm,v 4.8 1988/11/01 04:48:53 jinx Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/base/switch.scm,v 4.9 1988/11/02 21:52:31 cph Exp $ Copyright (c) 1988 Massachusetts Institute of Technology @@ -56,4 +56,7 @@ MIT in each case. |# (define compiler:package-optimization-level ;; Possible values: NONE LOW HYBRID HIGH - 'HYBRID) \ No newline at end of file + 'HYBRID) + +(define compiler:default-top-level-declarations + '((UUO-LINK ALL))) \ No newline at end of file -- 2.25.1