From 081d8d2352bd032613412f11fea91c0395a802eb Mon Sep 17 00:00:00 2001
From: Ryan Plessner <plessner.ryan@gmail.com>
Date: Sun, 28 Dec 2014 16:33:30 -0500
Subject: [PATCH] fixed the off by one issue that was causing characters t
 odisappear

---
 format.rkt | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/format.rkt b/format.rkt
index 0e570bf..02c5375 100644
--- 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 _)