summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorBoutade <thegoofist@protonmail.com>2019-04-26 11:56:42 -0500
committerBoutade <thegoofist@protonmail.com>2019-04-26 11:56:42 -0500
commitde00f09d48e3eff27d27078a134e8b30eb7494bc (patch)
treee346b4ce360f992a1e34f0106218a6d4904fbb03
parent63e6c7e11af4fb3dc2654fd1118154ce762420e7 (diff)
bugfix in <eof<
-rw-r--r--parzival.lisp4
1 files changed, 2 insertions, 2 deletions
diff --git a/parzival.lisp b/parzival.lisp
index 780929a..a88f52e 100644
--- a/parzival.lisp
+++ b/parzival.lisp
@@ -48,8 +48,8 @@
(<<def <eof<
(lambda (stream)
(if (peek-char nil stream nil nil)
- (values t t stream)
- (values nil nil stream)))
+ (values nil nil stream)
+ (values t t stream)))
"A parser that results in T if the end of the input stream has been
reached, fails otherwise")