Remove unused xstring-byte-* procedures.

diff --git a/src/runtime/runtime.pkg b/src/runtime/runtime.pkg
index ca1205d4df012e1554ac55616f7f845f6a19c435..997160006f6edc0276745dc10a236d4ed2720812 100644 (file)
--- 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 6293b9fce4313495e652ee59c561294a6e444c76..30c3a41214a8ca6396d4a2a015c3f5548ea9dbe8 100644 (file)
--- 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))