Change how critical parts of the parsing are handled

1 files changed, 1 insertions, 1 deletions

diff --git a/input.lisp b/input.lisp
index a96888f..d88d14d 100644
--- a/input.lisp
+++ b/input.lisp
@@ -23,7 +23,7 @@
   (make-instance 'input
                  :data (data input)
                  :file (file input)
-                 :cursor (1+ (cursor input))))
+                 :cursor (+ (cursor input) amount)))
 
 (defun from-string (str)
   (make-instance 'input :data str))