From: Matt Birkholz <puck@birchwood-abbey.net>
Date: Wed, 1 Feb 2017 21:26:41 +0000 (-0700)
Subject: Xstring-ref disappeared in the merge.
X-Git-Tag: mit-scheme-pucked-9.2.12~233
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=80809910b298656c0c5245ff572c7cb9ca2a1a2d;p=mit-scheme.git

Xstring-ref disappeared in the merge.
---

diff --git a/src/edwin/image.scm b/src/edwin/image.scm
index fc86267d4..6f51edb32 100644
--- a/src/edwin/image.scm
+++ b/src/edwin/image.scm
@@ -446,7 +446,7 @@ USA.
 		     (receiver text-index image-index))
 		    ((and (fix:< start text-index)
 			  (char=? #\newline
-				  (xstring-ref text (fix:-1+ text-index))))
+				  (string-ref text (fix:-1+ text-index))))
 		     (receiver text-index image-index))
 		    ((fix:= image-index image-end)
 		     (receiver text-index image-index))
@@ -467,7 +467,7 @@ USA.
     (if (or (fix:= image-index image-end)
 	    (fix:= string-index string-end))
 	(receiver string-index image-index)
-	(let ((char (xstring-ref string string-index)))
+	(let ((char (string-ref string string-index)))
 	  (cond ((char=? char #\newline)
 		 (receiver (fix:1+ string-index) image-index))
 		((and (char=? char #\tab) tab-width)