From cedc53e13a3d649028f1b25dbe06cd27f7f948df Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Sun, 1 Apr 2018 16:27:00 -0700 Subject: [PATCH] Downcase symbols and constants in optiondb. --- src/etc/optiondb.scm | 28 ++++++++++++++-------------- 1 file changed, 14 insertions(+), 14 deletions(-) diff --git a/src/etc/optiondb.scm b/src/etc/optiondb.scm index b17632c52..3938d8aeb 100644 --- a/src/etc/optiondb.scm +++ b/src/etc/optiondb.scm @@ -83,47 +83,47 @@ USA. (lose)) (finish dir pathname)))))))) -(define-load-option 'EDWIN +(define-load-option 'edwin (guarded-system-loader '(edwin) "edwin")) -(define-load-option 'COMPILER - (lambda () (load-option 'SF)) +(define-load-option 'compiler + (lambda () (load-option 'sf)) (guarded-system-loader '(compiler) "compiler" (if (eq? microcode-id/compiled-code-type 'C) "machines/C/make" "make"))) -(define-load-option 'CREF +(define-load-option 'cref (guarded-system-loader '(cross-reference) "cref")) -(define-load-option 'FFI +(define-load-option 'ffi (guarded-system-loader '(ffi) "ffi")) -(define-load-option 'IMAIL +(define-load-option 'imail (guarded-system-loader '(edwin imail) "imail")) -(define-load-option '*PARSER +(define-load-option '*parser (guarded-system-loader '(runtime *parser) "star-parser")) -(define-load-option 'SF +(define-load-option 'sf (guarded-system-loader '(scode-optimizer) "sf")) -(define-load-option 'SOS +(define-load-option 'sos (guarded-system-loader '(sos) "sos")) -(define-load-option 'SSP +(define-load-option 'ssp (guarded-system-loader '(runtime ssp) "ssp")) -(define-load-option 'STUDENT +(define-load-option 'student (guarded-system-loader '(student) "6001")) -(define-load-option 'WIN32 +(define-load-option 'win32 (guarded-system-loader '(win32) "win32")) -(define-load-option 'XDOC +(define-load-option 'xdoc (guarded-system-loader '(runtime ssp xdoc) "xdoc")) -(define-load-option 'XML +(define-load-option 'xml (guarded-system-loader '(runtime xml) "xml")) (further-load-options standard-load-options) \ No newline at end of file -- 2.25.1