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

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

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

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<? last end)