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

Downcase symbols and constants in optiondb.
---

diff --git a/src/runtime/optiondb.scm b/src/runtime/optiondb.scm
index 963e5b399..6d4925263 100644
--- a/src/runtime/optiondb.scm
+++ b/src/runtime/optiondb.scm
@@ -55,29 +55,29 @@ USA.
 
 ;; Standard load options are defined like this:
 
-(define-load-option 'ARITHMETIC-INTERFACE
-  (standard-option-loader '(RUNTIME NUMBER INTERFACE) #F "numint"))
+(define-load-option 'arithmetic-interface
+  (standard-option-loader '(runtime number interface) #f "numint"))
 
 ;; We can use programming to make the definitions less noisy and tedious:
 
 (for-each
  (lambda (spec)
    (define-load-option (car spec) (apply standard-option-loader (cdr spec))))
- '((COMPRESS	(RUNTIME COMPRESS)	#F			"cpress")
-   (DOSPROCESS	()			#F			"dosproc")
-   (FORMAT	(RUNTIME FORMAT)	(INITIALIZE-PACKAGE!)	"format")
-   (GDBM	(RUNTIME GDBM)		#F			"gdbm")
-   (MIME-CODEC	(RUNTIME MIME-CODEC)	#F			"mime-codec")
-   (ORDERED-VECTOR (RUNTIME ORDERED-VECTOR) #F			"ordvec")
-   (POSTGRESQL	(RUNTIME POSTGRESQL)	#F			"pgsql")
-   (RB-TREE	(RUNTIME RB-TREE)	#F			"rbtree")
-   (STEPPER	(RUNTIME STEPPER)	#F			"ystep")
-   (SUBPROCESS	(RUNTIME SUBPROCESS)	(INITIALIZE-PACKAGE!)	"process")
-   (SYNCHRONOUS-SUBPROCESS (RUNTIME SYNCHRONOUS-SUBPROCESS) #F	"syncproc")
-   (WT-TREE	(RUNTIME WT-TREE)	#F			"wttree")
+ '((compress	(runtime compress)	#f			"cpress")
+   (dosprocess	()			#f			"dosproc")
+   (format	(runtime format)	(initialize-package!)	"format")
+   (gdbm	(runtime gdbm)		#f			"gdbm")
+   (mime-codec	(runtime mime-codec)	#f			"mime-codec")
+   (ordered-vector (runtime ordered-vector) #f			"ordvec")
+   (postgresql	(runtime postgresql)	#f			"pgsql")
+   (rb-tree	(runtime rb-tree)	#f			"rbtree")
+   (stepper	(runtime stepper)	#f			"ystep")
+   (subprocess	(runtime subprocess)	(initialize-package!)	"process")
+   (synchronous-subprocess (runtime synchronous-subprocess) #f	"syncproc")
+   (wt-tree	(runtime wt-tree)	#f			"wttree")
    ))
 
-(define-load-option 'REGULAR-EXPRESSION
+(define-load-option 'regular-expression
   (standard-option-loader '(runtime regular-expression-compiler)
 			  #f
 			  "rgxcmp")
@@ -92,4 +92,4 @@ USA.
 			  "rexp"))
 
 ;; HASH-TABLE is now always loaded.
-(define-load-option 'HASH-TABLE dummy-option-loader)
\ No newline at end of file
+(define-load-option 'hash-table dummy-option-loader)
\ No newline at end of file