From: Chris Hanson <org/chris-hanson/cph>
Date: Sun, 5 Mar 2017 00:20:27 +0000 (-0800)
Subject: Change the default of 'copy? in string-trimmer to #f.
X-Git-Tag: mit-scheme-pucked-9.2.12~196^2~8
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=b449730af4ee705d8083bbfc9838eb611ec54326;p=mit-scheme.git

Change the default of 'copy? in string-trimmer to #f.
---

diff --git a/src/runtime/ustring.scm b/src/runtime/ustring.scm
index c13edc268..eb8378c0d 100644
--- a/src/runtime/ustring.scm
+++ b/src/runtime/ustring.scm
@@ -1312,7 +1312,7 @@ USA.
 (define-deferred string-trimmer-options
   (keyword-option-parser
    (list (list 'where '(leading trailing both) 'both)
-	 (list 'copy? boolean? #t)
+	 (list 'copy? boolean? #f)
 	 (list 'trim-char? unary-procedure? char-whitespace?))))
 
 (define (string-padder . options)
@@ -1541,6 +1541,7 @@ USA.
 (define (legacy-string-trimmer where)
   (lambda (string #!optional char-set)
     ((string-trimmer 'where where
+		     'copy? #t
 		     'trim-char?
 		     (char-set-predicate
 		      (if (default-object? char-set)