From b3fad6693c944869a7e499eaff14eaa88b204abb Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Tue, 24 Jan 2017 12:37:30 -0800 Subject: [PATCH] Remove unused xstring-byte-* procedures. --- src/runtime/runtime.pkg | 2 -- src/runtime/string.scm | 10 ---------- 2 files changed, 12 deletions(-) diff --git a/src/runtime/runtime.pkg b/src/runtime/runtime.pkg index ca1205d4d..997160006 100644 --- a/src/runtime/runtime.pkg +++ b/src/runtime/runtime.pkg @@ -1118,9 +1118,7 @@ USA. xstring-length xstring-move! xstring-ref - xstring-byte-ref xstring-set! - xstring-byte-set! xstring? xsubstring xsubstring-fill! diff --git a/src/runtime/string.scm b/src/runtime/string.scm index 6293b9fce..30c3a4121 100644 --- a/src/runtime/string.scm +++ b/src/runtime/string.scm @@ -1657,21 +1657,11 @@ USA. ((wide-string? string) (wide-string-ref string index)) (else (error:not-xstring string 'XSTRING-REF)))) -(define (xstring-byte-ref string index) - (cond ((string? string) (vector-8b-ref string index)) - ((wide-string? string) (wide-string-ref string index)) - (else (error:not-xstring string 'XSTRING-BYTE-REF)))) - (define (xstring-set! string index char) (cond ((string? string) (string-set! string index char)) ((wide-string? string) (wide-string-set! string index char)) (else (error:not-xstring string 'XSTRING-SET!)))) -(define (xstring-byte-set! string index byte) - (cond ((string? string) (vector-8b-set! string index byte)) - ((wide-string? string) (wide-string-set! string index byte)) - (else (error:not-xstring string 'XSTRING-BYTE-SET!)))) - (define (xstring-move! xstring1 xstring2 start2) (xsubstring-move! xstring1 0 (xstring-length xstring1) xstring2 start2)) -- 2.25.1