From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 20 Feb 2017 01:37:21 +0000 (-0800)
Subject: Eliminate unused vector->string.
X-Git-Tag: mit-scheme-pucked-9.2.12~220^2~55
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=9fd63ca35ddd7959e935f0f3a35705105d980ec0;p=mit-scheme.git

Eliminate unused vector->string.
---

diff --git a/src/runtime/vector.scm b/src/runtime/vector.scm
index cb8ee1159..3e112b77d 100644
--- a/src/runtime/vector.scm
+++ b/src/runtime/vector.scm
@@ -253,18 +253,6 @@ USA.
 	  ((fix:> to start)
 	   (subvector-move-right! from start end to at)))))
 
-(define (vector->string vector #!optional start end)
-  (let ((start (if (default-object? start) 0 start))
-	(end (if (default-object? end) (vector-length vector) end)))
-    (guarantee-subvector vector start end 'vector->string)
-    (let ((result (make-string (fix:- end start))))
-      (do ((i start (fix:+ i 1)))
-	  ((not (fix:< i end)))
-	(string-set! result
-		     (fix:- i start)
-		     (vector-ref vector i)))
-      result)))
-
 (define (subvector-filled? vector start end element)
   (guarantee-subvector vector start end 'SUBVECTOR-FILLED?)
   (let loop ((index start))