Eliminate more string-copy calls.

diff --git a/src/runtime/http-syntax.scm b/src/runtime/http-syntax.scm
index b6c5ab1c68d5e2b0176c846701917bc2fa5a2393..46b65cdcbca881ae784f35fe07fbae45ed54d4fa 100644 (file)
--- a/src/runtime/http-syntax.scm
+++ b/src/runtime/http-syntax.scm
@@ -1492,13 +1492,11 @@ USA.
 (define-deferred default-http-user-agent
   (list
    (cons "MIT-GNU-Scheme"
-        (let ((s (string-copy (get-subsystem-version-string "release"))))
-          (let ((end (string-length s)))
-            (do ((i 0 (+ i 1)))
-                ((not (< i end)))
-              (if (not (char-in-set? (string-ref s i) char-set:http-token))
-                  (string-set! s i #\_))))
-          s))))
+        (string-map (lambda (c)
+                      (if (char-in-set? c char-set:http-token)
+                          c
+                          #\_))
+                    (get-subsystem-version-string "release")))))
 
 (define (vector->values vector)
   (apply values (vector->list vector)))

diff --git a/src/runtime/system.scm b/src/runtime/system.scm
index 6b8d74829ae4a6330375c8c5c7428d360c6c36a7..6f44472b309e5de5087b9200846b22f8dfb6d036 100644 (file)
--- a/src/runtime/system.scm
+++ b/src/runtime/system.scm
@@ -96,7 +96,7 @@ USA.
               (s (version-string (cdr entry))))
           (and s
                (if (string-null? s)
-                   (string-copy name)
+                   name
                    (string-append name " " s)))))))
 \f
 (define (version-string version)