Remove superfluous function and argument in call

1 files changed, 0 insertions, 3 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))