Stacken/c64-livecoding
6
0
Fork 0
Code Issues 1 Pull requests Projects Releases Packages Wiki Activity Actions

Some little cleanup

Browse source
This commit is contained in:
John Lorentzson 2025-06-13 09:19:00 +02:00
parent 928cdfd318
commit 2b94745734
1 changed files with 0 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
wip-duuqnd/user-side-compiler/parser.lisp
View file

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