From f1a2a8a8e06411c942a1537f1b7970972acc83d2 Mon Sep 17 00:00:00 2001 From: Alex Shinn Date: Sun, 15 May 2016 20:07:26 +0900 Subject: [PATCH] s/string-cursor-backward/string-cursor-back/g --- lib/chibi/mime.scm | 2 +- lib/chibi/pathname.scm | 2 +- lib/chibi/show/write.scm | 2 +- 3 files changed, 3 insertions(+), 3 deletions(-) diff --git a/lib/chibi/mime.scm b/lib/chibi/mime.scm index 1ac3b126..bc74c339 100644 --- a/lib/chibi/mime.scm +++ b/lib/chibi/mime.scm @@ -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 diff --git a/lib/chibi/pathname.scm b/lib/chibi/pathname.scm index 0244d627..39f7f592 100644 --- a/lib/chibi/pathname.scm +++ b/lib/chibi/pathname.scm @@ -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)))) diff --git a/lib/chibi/show/write.scm b/lib/chibi/show/write.scm index 104510d4..42d224ed 100644 --- a/lib/chibi/show/write.scm +++ b/lib/chibi/show/write.scm @@ -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