diff options
| author | Juan Manuel Tomás <jtomas1815@gmail.com> | 2025-06-15 03:49:14 -0300 |
|---|---|---|
| committer | Juan Manuel Tomás <jtomas1815@gmail.com> | 2025-06-15 03:49:14 -0300 |
| commit | 66b6d675055eb8a5017376eb6f43d609887d1289 (patch) | |
| tree | 053802e3de74468bcc8f07e5e6e1628de2e9c4e4 /input.lisp | |
| parent | da008e637b5bff56fed8dfbacc2adabc4bca18b1 (diff) | |
| download | monparser-66b6d675055eb8a5017376eb6f43d609887d1289.tar.gz monparser-66b6d675055eb8a5017376eb6f43d609887d1289.zip | |
Update parser interface
Diffstat (limited to 'input.lisp')
| -rw-r--r-- | input.lisp | 9 |
1 files changed, 4 insertions, 5 deletions
@@ -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 "[4;33m~a[m~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 "[4;33m¬[m")) - (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 "..."))))) |