Some little cleanup

This commit is contained in:
John Lorentzson 2025-06-13 09:19:00 +02:00
parent 928cdfd318
commit 2b94745734

View file

@ -88,10 +88,6 @@ parser's debug output.")
;;; Syntax patterns
(defclass node-expr-equality (node-expr-binary)
((%operator :accessor operator :initarg :operator)
(%operands :accessor operands :initarg :operands)))
(defmacro define-binary-expr-matcher (name next &rest operator-node-pairs)
`(define-syntax-matcher ,name (left operator right)
(setf left (match-syntax ,next))
@ -136,7 +132,6 @@ parser's debug output.")
(token-not-equal node-expr-test-not-equal))
(define-binary-expr-matcher comparison term
;; TODO: The rest
(token-less-than node-expr-test-equal)
(token-greater-than node-expr-test-not-equal))