From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 24 Jan 2017 20:37:30 +0000 (-0800)
Subject: Remove unused xstring-byte-* procedures.
X-Git-Tag: mit-scheme-pucked-9.2.12~227^2~93
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=b3fad6693c944869a7e499eaff14eaa88b204abb;p=mit-scheme.git

Remove unused xstring-byte-* procedures.
---

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))