diff --git a/wip-duuqnd/user-side-compiler/parser.lisp b/wip-duuqnd/user-side-compiler/parser.lisp index 1e0ad73..d3032c3 100644 --- a/wip-duuqnd/user-side-compiler/parser.lisp +++ b/wip-duuqnd/user-side-compiler/parser.lisp @@ -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))