fixed the off by one issue that was causing characters t odisappear

2014-12-28 16:33:30 -05:00 · 2014-12-28 16:33:30 -05:00 · 081d8d2352
commit 081d8d2352
parent a9c03abc6a
1 changed files with 1 additions and 1 deletions
--- a/format.rkt
+++ b/format.rkt
@ -126,7 +126,7 @@
       (if (eq? m mode)
           (loop* start)
           (cons (get-xml)
-                 (loop* (add1 loc))))])))
+                 (loop* loc)))])))

 (define (get-mode loc c)
  (define-values (mode _)