Xstring-ref disappeared in the merge.

diff --git a/src/edwin/image.scm b/src/edwin/image.scm
index fc86267d46474cfa210f7481301c33a81cb88120..6f51edb3262475fd0296ccd4d8c361e292ee897c 100644 (file)
--- 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)