Remove superfluous function and argument in call

2 files changed, 0 insertions, 4 deletions

diff --git a/input.lisp b/input.lisp
index 15b8e08..55a72cb 100644
--- a/input.lisp
+++ b/input.lisp
@@ -16,9 +16,6 @@
                  :data (input-data input)
                  :cursor (+ (input-cursor input) 1)))
 
-(defun cursor-distance (input1 input2)
-  (- (input-cursor input1) (input-cursor input2)))
-
 (defun line-and-column (input)
   (let ((line 1) (column 1))
     (dotimes (i (input-cursor input))
diff --git a/main.lisp b/main.lisp
index 0d890a0..c0fd49c 100644
--- a/main.lisp
+++ b/main.lisp
@@ -3,7 +3,6 @@
 (defun parse (parser data)
   (let* ((result (funcall parser
                           (make-instance 'parser-input
-                                         :cursor 0
                                          :data data))))
     (if (parsing-p result)
       (let ((finished? (not (has-data? (parsing-left result)))))