Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-05-21 14:49:18 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

s/string-cursor-backward/string-cursor-back/g

Browse source
This commit is contained in:
Alex Shinn 2016-05-15 20:07:26 +09:00
parent 19f6ea6054
commit f1a2a8a8e0
3 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
lib/chibi/mime.scm
View file

@ -192,7 +192,7 @@
(define (mime-decode-header str)
(let* ((end (string-cursor-end str))
;; need at least 8 chars: "=?Q?X??="
(limit (string-cursor-backward end 8))
(limit (string-cursor-back end 8))
(start (string-cursor-start str)))
(let lp ((i start) (from start) (res '()))
(cond

2
lib/chibi/pathname.scm
View file

@ -183,7 +183,7 @@
(string-cursor-forward path j 2)
(cons s res)))))
((eqv? #\. (string-cursor-ref path (string-cursor-next path j)))
(if (or (string-cursor>=? j (string-cursor-backward path end 2))
(if (or (string-cursor>=? j (string-cursor-back path end 2))
(eqv? #\/ (string-cursor-ref
path
(string-cursor-forward path j 2))))

2
lib/chibi/show/write.scm
View file

@ -141,7 +141,7 @@
(string-append s (make-string (- precision digits -1) #\0)))
(else
(let* ((last
(string-cursor-backward s end (- digits precision 1)))
(string-cursor-back s end (- digits precision 1)))
(res (substring-cursor s (string-cursor-start s) last)))
(if (and
(string-cursor<? last end)