From: Chris Hanson <org/chris-hanson/cph>
Date: Sat, 18 Feb 2017 04:40:26 +0000 (-0800)
Subject: Another round of substitutions.
X-Git-Tag: mit-scheme-pucked-9.2.12~220^2~79
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=50edf829835e9ec84aa8a4d656ba8404aa68d2dd;p=mit-scheme.git

Another round of substitutions.
---

diff --git a/src/runtime/runtime.pkg b/src/runtime/runtime.pkg
index 2539d8aee..0aceb056a 100644
--- 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