X-Git-Url: https://git.distorted.org.uk/~mdw/sod/blobdiff_plain/aa14a4cddcb96b681d5c19a2ec8bad382f43b264..1d087117402054e058fcd4dc23aa2a1bae2446e0:/src/parser/parser-test.lisp

diff --git a/src/parser/parser-test.lisp b/src/parser/parser-test.lisp
index f25961e..6718d5c 100644
--- a/src/parser/parser-test.lisp
+++ b/src/parser/parser-test.lisp
@@ -400,10 +400,13 @@
 				       (seq (#\&) and)
 				       (seq (#\|) or)))
 			    (token (or (seq (#\() lp)
+				       (seq (#\[) lb)
 				       (seq (#\-) neg)
 				       (seq (#\!) not)))
 			    (token (or (seq (#\!) fact)
-				       (when nestedp (seq (#\)) rp))))))
+				       (when nestedp
+					 (or (seq (#\)) rp)
+					     (seq (#\]) rb)))))))
 		   (next (or :any (t :eof))))
 	       (cons value next))))))
 
@@ -425,7 +428,6 @@
   (assert-expr-parse "1 ** 2 ** 3" '((** 1 (** 2 3)) . :eof) t t)
   (assert-expr-parse "1 + 2) * 3" '((+ 1 2) . #\)) t t)
   (assert-expr-parse "1 + 2 * 3" '((+ 1 (* 2 3)) . :eof) t t)
-
   (assert-expr-parse "! 1 + 2 = 3 | 6 - 3 /= 12/6"
 		     '((or (not (= (+ 1 2) 3))
 			   (/= (- 6 3) (/ 12 6)))