From 80809910b298656c0c5245ff572c7cb9ca2a1a2d Mon Sep 17 00:00:00 2001 From: Matt Birkholz Date: Wed, 1 Feb 2017 14:26:41 -0700 Subject: [PATCH] Xstring-ref disappeared in the merge. --- src/edwin/image.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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) -- 2.25.1