diff options
author | colin <colin@cicadas.surf> | 2023-08-03 20:15:42 -0700 |
---|---|---|
committer | colin <colin@cicadas.surf> | 2023-08-03 20:15:42 -0700 |
commit | f242a709095fc660b51aec8c2590cadc89f144ba (patch) | |
tree | ccfc9c3f2abdcbec1ecb9ec3fe62b8d3a993966b /grammars.lisp | |
parent | 7dcb51ab0ec2dadd3728a3872a56cb64c1e0c23a (diff) |
Manualmaster
Diffstat (limited to 'grammars.lisp')
-rw-r--r-- | grammars.lisp | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/grammars.lisp b/grammars.lisp index 38f1c2f..533b7ce 100644 --- a/grammars.lisp +++ b/grammars.lisp @@ -110,7 +110,7 @@ any pattern fails the whole parse fails." (defun literals->patterns (literals) (loop :for l :in literals :collect (list := l))) -(defun literals-equal? (a b) (eq a b)) +(defun literals-equal? (a b) (equalp a b)) (defun parse-literal (literal) (if (literals-equal? (next-token) literal) |