Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-05-20 22:29:16 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Replacing string-ref uses with string-cursor-ref.

Browse source
This commit is contained in:
Alex Shinn 2012-06-14 09:03:37 +09:00
parent c9e579f9f4
commit 028a260247
1 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
lib/chibi/strings.scm
View file

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