From 028a26024776fd9a4e75c537a6458e15b400b89a Mon Sep 17 00:00:00 2001
From: Alex Shinn <ashinn@users.noreply.github.com>
Date: Thu, 14 Jun 2012 09:03:37 +0900
Subject: [PATCH] Replacing string-ref uses with string-cursor-ref.

---
 lib/chibi/strings.scm | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/lib/chibi/strings.scm b/lib/chibi/strings.scm
index 340a5d3c..96fc44f7 100644
--- a/lib/chibi/strings.scm
+++ b/lib/chibi/strings.scm
@@ -32,7 +32,7 @@
         (end (string-cursor-end str)))
     (let lp ((i (if (pair? o) (car o) (string-cursor-start str))))
       (cond ((string-cursor>=? i end) end)
-            ((pred (string-ref str i)) i)
+            ((pred (string-cursor-ref str i)) i)
             (else (lp (string-cursor-next str i)))))))
 
 (define (string-find-right str x . o)
@@ -41,7 +41,7 @@
     (let lp ((i (if (pair? o) (car o) (string-cursor-end str))))
       (let ((i2 (string-cursor-prev str i)))
         (cond ((string-cursor<? i2 end) end)
-              ((pred (string-ref str i2)) i)
+              ((pred (string-cursor-ref str i2)) i)
               (else (lp i2)))))))
 
 (define (string-skip str x . o)
@@ -93,7 +93,7 @@
              (j (string-cursor-start str)))
       (if (or (string-cursor>=? i end1)
               (string-cursor>=? j end2)
-              (not (eq? (string-ref prefix i) (string-ref str j))))
+              (not (eq? (string-cursor-ref prefix i) (string-cursor-ref str j))))
           j
           (lp (string-cursor-next prefix i) (string-cursor-next str j))))))
 
@@ -104,7 +104,7 @@
              (j (string-cursor-prev str (string-cursor-end str))))
       (if (or (string-cursor<? i end1)
               (string-cursor<? j end2)
-              (not (eq? (string-ref suffix i) (string-ref str j))))
+              (not (eq? (string-cursor-ref suffix i) (string-cursor-ref str j))))
           j
           (lp (string-cursor-prev suffix i) (string-cursor-prev str j))))))