From: Chris Hanson <org/chris-hanson/cph>
Date: Sun, 1 Apr 2018 23:27:00 +0000 (-0700)
Subject: Downcase symbols and constants in optiondb.
X-Git-Tag: mit-scheme-pucked-x11-0.3.1~7^2~145
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=cedc53e13a3d649028f1b25dbe06cd27f7f948df;p=mit-scheme.git

Downcase symbols and constants in optiondb.
---

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