From a4a4c78d13e9eab2427b930c067278207508d60e Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Juan=20Manuel=20Tom=C3=A1s?= <jtomas1815@gmail.com>
Date: Sun, 8 Jun 2025 18:48:58 -0300
Subject: Remove superfluous function and argument in call

---
 input.lisp | 3 ---
 main.lisp  | 1 -
 2 files changed, 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)))))
-- 
cgit v1.2.3