From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 2 Apr 2018 00:02:49 +0000 (-0700)
Subject: Downcase more symbols and constants.
X-Git-Tag: mit-scheme-pucked-x11-0.3.1~7^2~140
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=d1bdcf75d9df0d6d22f059cf6dd5a7019573975b;p=mit-scheme.git

Downcase more symbols and constants.
---

diff --git a/src/cref/cref.sf b/src/cref/cref.sf
index e94495a46..3291edb20 100644
--- a/src/cref/cref.sf
+++ b/src/cref/cref.sf
@@ -34,6 +34,6 @@ USA.
 
 (if (file-exists? (package-set-pathname "../runtime/runtime"))
     (begin
-      (if (not (name->package '(CROSS-REFERENCE)))
+      (if (not (name->package '(cross-reference)))
 	  (load "make"))
-      (cref/generate-constructors "cref" 'ALL)))
\ No newline at end of file
+      (cref/generate-constructors "cref" 'all)))
\ No newline at end of file
diff --git a/src/sf/make.scm b/src/sf/make.scm
index b8a6116ea..ec9b55985 100644
--- a/src/sf/make.scm
+++ b/src/sf/make.scm
@@ -31,6 +31,6 @@ USA.
 (with-loader-base-uri (system-library-uri "sf/")
   (lambda ()
     (load-package-set "sf")
-    ((package/reference (find-package '(SCODE-OPTIMIZER))
-			'USUAL-INTEGRATIONS/CACHE!))))
+    ((package/reference (find-package '(scode-optimizer))
+			'usual-integrations/cache!))))
 (add-subsystem-identification! "SF" '(4 41))
\ No newline at end of file
diff --git a/src/sf/sf.sf b/src/sf/sf.sf
index 917db7bed..84d5224e9 100644
--- a/src/sf/sf.sf
+++ b/src/sf/sf.sf
@@ -24,23 +24,23 @@ USA.
 
 |#
 
-(fluid-let ((sf/default-syntax-table (->environment '(RUNTIME)))
-	    (sf/top-level-definitions 
-	     '(ACCESS?
-	       ASSIGNMENT?
-	       COMBINATION?
-	       CONDITIONAL?
-	       DECLARATION?
-	       DELAY?
-	       DISJUNCTION?
-	       OPEN-BLOCK?
-	       PROCEDURE?
-	       QUOTATION?
-	       SEQUENCE?
-	       THE-ENVIRONMENT?
-	       VARIABLE?)))
+(fluid-let ((sf/default-syntax-table (->environment '(runtime)))
+	    (sf/top-level-definitions
+	     '(access?
+	       assignment?
+	       combination?
+	       conditional?
+	       declaration?
+	       delay?
+	       disjunction?
+	       open-block?
+	       procedure?
+	       quotation?
+	       sequence?
+	       the-environment?
+	       variable?)))
   (sf-conditionally "object")
   (sf-directory "."))
 
-(load-option 'CREF)
-(cref/generate-constructors "sf" 'ALL)
\ No newline at end of file
+(load-option 'cref)
+(cref/generate-constructors "sf" 'all)
\ No newline at end of file
diff --git a/src/sos/compile.scm b/src/sos/compile.scm
index b02bbb56a..46462bc6f 100644
--- a/src/sos/compile.scm
+++ b/src/sos/compile.scm
@@ -24,7 +24,7 @@ USA.
 
 |#
 
-(load-option 'CREF)
+(load-option 'cref)
 (with-working-directory-pathname (directory-pathname (current-load-pathname))
   (lambda ()
     (compile-file "class")
@@ -38,4 +38,4 @@ USA.
     (compile-file "recslot")
     (compile-file "slot")
     (compile-file "tvector")
-    (cref/generate-constructors "sos" 'ALL)))
\ No newline at end of file
+    (cref/generate-constructors "sos" 'all)))
\ No newline at end of file
diff --git a/src/ssp/compile.scm b/src/ssp/compile.scm
index bdd6eb66b..f14f4fc38 100644
--- a/src/ssp/compile.scm
+++ b/src/ssp/compile.scm
@@ -26,7 +26,7 @@ USA.
 
 ;;;; SSP compilation
 
-(load-option 'CREF)
+(load-option 'cref)
 (with-working-directory-pathname (directory-pathname (current-load-pathname))
   (lambda ()
     (for-each compile-file
@@ -34,4 +34,4 @@ USA.
 		"mod-lisp"
 		"xhtml-expander"
 		"xmlrpc"))
-    (cref/generate-constructors "ssp" 'ALL)))
\ No newline at end of file
+    (cref/generate-constructors "ssp" 'all)))
\ No newline at end of file
diff --git a/src/star-parser/compile.scm b/src/star-parser/compile.scm
index 0e71f855b..eaccc5700 100644
--- a/src/star-parser/compile.scm
+++ b/src/star-parser/compile.scm
@@ -26,11 +26,11 @@ USA.
 
 ;;;; Parser language: compilation
 
-(load-option 'CREF)
+(load-option 'cref)
 (with-working-directory-pathname (directory-pathname (current-load-pathname))
   (lambda ()
     (for-each compile-file
 	      '("matcher"
 		"parser"
 		"shared"))
-    (cref/generate-constructors "parser" 'ALL)))
\ No newline at end of file
+    (cref/generate-constructors "parser" 'all)))
\ No newline at end of file
diff --git a/src/xdoc/compile.scm b/src/xdoc/compile.scm
index 40d21e0ec..16ee818e8 100644
--- a/src/xdoc/compile.scm
+++ b/src/xdoc/compile.scm
@@ -26,10 +26,10 @@ USA.
 
 ;;;; XDOC compilation
 
-(load-option 'CREF)
+(load-option 'cref)
 (with-working-directory-pathname (directory-pathname (current-load-pathname))
   (lambda ()
     (for-each compile-file
 	      '("db"
 		"xdoc"))
-    (cref/generate-constructors "xdoc" 'ALL)))
\ No newline at end of file
+    (cref/generate-constructors "xdoc" 'all)))
\ No newline at end of file
diff --git a/src/xml/compile.scm b/src/xml/compile.scm
index 40cf73bbe..8d97a2a6e 100644
--- a/src/xml/compile.scm
+++ b/src/xml/compile.scm
@@ -24,13 +24,13 @@ USA.
 
 |#
 
-(load-option 'CREF)
-(load-option '*PARSER)
-(load-option 'SOS)
+(load-option 'cref)
+(load-option '*parser)
+(load-option 'sos)
 
-(if (not (environment-bound? system-global-environment 'XML-PARSER-MACROS))
+(if (not (environment-bound? system-global-environment 'xml-parser-macros))
     (environment-define system-global-environment
-			'XML-PARSER-MACROS
+			'xml-parser-macros
 			(make-parser-macros #f)))
 
 (with-working-directory-pathname (directory-pathname (current-load-pathname))
@@ -50,4 +50,4 @@ USA.
 		    "rdf-struct"
 		    "rdf-nt"
 		    "turtle"))))
-    (cref/generate-constructors "xml" 'ALL)))
\ No newline at end of file
+    (cref/generate-constructors "xml" 'all)))
\ No newline at end of file
diff --git a/src/xml/load.scm b/src/xml/load.scm
index c7f97d0b1..d1a73f6a3 100644
--- a/src/xml/load.scm
+++ b/src/xml/load.scm
@@ -24,8 +24,8 @@ USA.
 
 |#
 
-(load-option 'REGULAR-EXPRESSION)
-(load-option 'SOS)
+(load-option 'regular-expression)
+(load-option 'sos)
 (with-loader-base-uri (system-library-uri "xml/")
   (lambda ()
     (load-package-set "xml")))