Downcase more symbols and constants.

diff --git a/src/cref/cref.sf b/src/cref/cref.sf
index e94495a46108ee14d7268fba5279385cc82c6667..3291edb2000da3e55c5994a2ad4286cd5deecb7f 100644 (file)
--- 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 b8a6116eabbcef3c6c0dff7a4a17835845826d88..ec9b559850cc15778bd391d0afca102c19eac79e 100644 (file)
--- 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 917db7bedb05f0ee2c8ce274048021cffde35860..84d5224e9308e9f7dcaf0d409ebff697a0240cc5 100644 (file)
--- 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 b02bbb56aa9e4908bde7261ff31306f8e0519589..46462bc6f44de9bf420b2fb685b7835704b8356e 100644 (file)
--- 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 bdd6eb66bcce1a82438f727cbfdad9afc5633bcb..f14f4fc38e27ec24c7e8dedf9371d050eb12aa5e 100644 (file)
--- 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 0e71f855b82907fc10d647aa276a9f673caddec2..eaccc57008f9fd193597aa9961dc89b678abb1e3 100644 (file)
--- 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 40d21e0ecf7664dd5e3dcb8e4049bbad6cbd32b0..16ee818e8ae6dd9c6053195ef263ce8e33ad4f69 100644 (file)
--- 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 40cf73bbe6fd080999d2086af4f7e3943724f03b..8d97a2a6e65f8137344356209bdee5fa4fadba1f 100644 (file)
--- 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 c7f97d0b17768aea994b3dcc6dede0f824ee9377..d1a73f6a38af33bac06fd1edbf4eb8c9f5ffa302 100644 (file)
--- 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")))