From 2ebab36f8c689fa3e6f88cfc25cecd83848ca129 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Juan=20Manuel=20Tom=C3=A1s?= <jtomas1815@gmail.com>
Date: Mon, 24 Nov 2025 07:01:47 -0300
Subject: Big update

---
 extra.lisp | 9 ++-------
 1 file changed, 2 insertions(+), 7 deletions(-)

(limited to 'extra.lisp')

diff --git a/extra.lisp b/extra.lisp
index 81776a7..024bd3b 100644
--- a/extra.lisp
+++ b/extra.lisp
@@ -1,13 +1,8 @@
 (in-package #:monparser)
 
 (defparameter whitespace
-  (many (unit #'char:whitespace?)))
-
-(defparameter end-of-input
-  (lambda (input)
-    (if (cursed:has-data? input)
-      (make-failure :place input :message "Didn't reach end of input.")
-      (make-parsing :tree nil :start input :end input))))
+  (many (unit (or (char= it #\Space)
+                  (not (graphic-char-p it))))))
 
 (defun repeat (p min &optional (max 0))
   (if (> min 0)
-- 
cgit v1.2.3