From 9fd63ca35ddd7959e935f0f3a35705105d980ec0 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Sun, 19 Feb 2017 17:37:21 -0800 Subject: [PATCH] Eliminate unused vector->string. --- src/runtime/vector.scm | 12 ------------ 1 file changed, 12 deletions(-) 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)) -- 2.25.1