Another round of substitutions.

diff --git a/src/runtime/runtime.pkg b/src/runtime/runtime.pkg
index 2539d8aee0419e346f33e1ceeeb8a82dbcfb0f45..0aceb056a01059639959501ce28af983cbd431b0 100644 (file)
--- a/src/runtime/runtime.pkg
+++ b/src/runtime/runtime.pkg
@@ -1050,7 +1050,7 @@ USA.
          guarantee-substring-end-index
          guarantee-substring-start-index
          lisp-string->camel-case
-         ;;list->string
+         ;; list->string
          make-string
          reverse-string
          reverse-string!
@@ -1058,10 +1058,10 @@ USA.
          reverse-substring!
          set-string-length!
          string
-         ;;string->list
-         ;;string->vector
+         ;; string->list
+         ;; string->vector
          string-allocate
-         string-append
+         ;; string-append
          string-capitalize
          string-capitalize!
          string-capitalized?
@@ -1073,27 +1073,27 @@ USA.
          ;; string-ci>?
          string-compare
          string-compare-ci
-         string-copy
-         string-copy!
-         string-downcase
+         ;; string-copy
+         ;; string-copy!
+         ;; string-downcase
          string-downcase!
-         string-fill!
+         ;; string-fill!
          string-find-next-char
          string-find-next-char-ci
          string-find-next-char-in-set
          string-find-previous-char
          string-find-previous-char-ci
          string-find-previous-char-in-set
-         string-for-each
+         ;; string-for-each
          ;; string-hash
          ;; string-hash-mod
-         string-head
+         ;; string-head
          string-head!
          string-joiner
          string-joiner*
-         string-length
+         ;; string-length
          string-lower-case?
-         string-map
+         ;; string-map
          string-match-backward
          string-match-backward-ci
          string-match-forward
@@ -1103,23 +1103,23 @@ USA.
          string-null?
          string-pad-left
          string-pad-right
-         string-prefix-ci?
-         string-prefix?
-         string-ref
+         ;; string-prefix-ci?
+         ;; string-prefix?
+         ;; string-ref
          string-replace
          string-replace!
          string-search-all
          string-search-backward
          string-search-forward
-         string-set!
+         ;; string-set!
          string-splitter
-         string-suffix-ci?
-         string-suffix?
-         string-tail
+         ;; string-suffix-ci?
+         ;; string-suffix?
+         ;; string-tail
          string-trim
          string-trim-left
          string-trim-right
-         string-upcase
+         ;; string-upcase
          string-upcase!
          string-upper-case?
          ;; string<=?
@@ -1127,8 +1127,8 @@ USA.
          ;; string=?
          ;; string>=?
          ;; string>?
-         string?
-         substring
+         ;; string?
+         ;; substring
          substring->list
          substring-capitalize!
          substring-capitalized?
@@ -1173,19 +1173,39 @@ USA.
          (list->string list->ustring)
          (string->list ustring->list)
          (string->vector ustring->vector)
+         (string-append ustring-append)
          (string-ci-hash ustring-ci-hash)
          (string-ci<=? ustring-ci<=?)
          (string-ci<? ustring-ci<?)
          (string-ci=? ustring-ci=?)
          (string-ci>=? ustring-ci>=?)
          (string-ci>? ustring-ci>?)
+         (string-copy ustring-copy)
+         (string-copy! ustring-copy!)
+         (string-downcase ustring-downcase)
+         (string-fill! ustring-fill!)
+         (string-foldcase ustring-foldcase)
+         (string-for-each ustring-for-each)
          (string-hash ustring-hash)
          (string-hash-mod ustring-hash)
+         (string-head ustring-head)
+         (string-length ustring-length)
+         (string-map ustring-map)
+         (string-prefix-ci? ustring-prefix-ci?)
+         (string-prefix? ustring-prefix?)
+         (string-ref ustring-ref)
+         (string-set! ustring-set!)
+         (string-suffix-ci? ustring-suffix-ci?)
+         (string-suffix? ustring-suffix?)
+         (string-tail ustring-tail)
+         (string-upcase ustring-upcase)
          (string<=? ustring<=?)
          (string<? ustring<?)
          (string=? ustring=?)
          (string>=? ustring>=?)
          (string>? ustring>?)
+         (string? ustring?)
+         (substring ustring-copy)
          (usubstring ustring-copy)
          list->ustring
          make-ustring