From d1bdcf75d9df0d6d22f059cf6dd5a7019573975b Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Sun, 1 Apr 2018 17:02:49 -0700 Subject: [PATCH] Downcase more symbols and constants. --- src/cref/cref.sf | 4 ++-- src/sf/make.scm | 4 ++-- src/sf/sf.sf | 34 +++++++++++++++++----------------- src/sos/compile.scm | 4 ++-- src/ssp/compile.scm | 4 ++-- src/star-parser/compile.scm | 4 ++-- src/xdoc/compile.scm | 4 ++-- src/xml/compile.scm | 12 ++++++------ src/xml/load.scm | 4 ++-- 9 files changed, 37 insertions(+), 37 deletions(-) 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"))) -- 2.25.1