1 files changed, 4 insertions, 5 deletions

diff --git a/input.lisp b/input.lisp
index 5d6a162..e464d0e 100644
--- a/input.lisp
+++ b/input.lisp
@@ -35,10 +35,9 @@
         (format stream "..."))
       (format stream "~a"
               (substitute #\↲ #\Newline (subseq (input-data obj) begin (input-cursor obj))))
-      (if (< (input-cursor obj) (length (input-data obj)))
+      (when (< (input-cursor obj) (length (input-data obj)))
         (format stream "~a~a"
                 (substitute #\↲ #\Newline (subseq (input-data obj) (input-cursor obj) (1+ (input-cursor obj))))
-                (substitute #\↲ #\Newline (subseq (input-data obj) (1+ (input-cursor obj)) end)))
-        (format stream "¬"))
-        (when (< end (length (input-data obj)))
-          (format stream "...")))))
+                (substitute #\↲ #\Newline (subseq (input-data obj) (1+ (input-cursor obj)) end))))
+      (when (< end (length (input-data obj)))
+        (format stream "...")))))