[honu] move test file. minor cleanups to the parsing code
This commit is contained in:
parent
47d613f4ec
commit
c6e35ff665
|
@ -177,18 +177,7 @@
|
||||||
(values (left #'parsed)
|
(values (left #'parsed)
|
||||||
#'rest)
|
#'rest)
|
||||||
(do-parse #'rest precedence
|
(do-parse #'rest precedence
|
||||||
left
|
left #'parsed)))))]
|
||||||
;; (lambda (x) x)
|
|
||||||
#'parsed
|
|
||||||
#;
|
|
||||||
(left #'parsed)))
|
|
||||||
#;
|
|
||||||
#'(splicing-let-syntax ([more-parsing (lambda (stx)
|
|
||||||
(do-parse (stx-cdr stx)
|
|
||||||
precedence left
|
|
||||||
current))])
|
|
||||||
parsed
|
|
||||||
(more-parsing . rest)))))]
|
|
||||||
[(honu-operator? #'head)
|
[(honu-operator? #'head)
|
||||||
(define new-precedence (transformer:honu-operator-ref (syntax-local-value #'head) 0))
|
(define new-precedence (transformer:honu-operator-ref (syntax-local-value #'head) 0))
|
||||||
(define association (transformer:honu-operator-ref (syntax-local-value #'head) 1))
|
(define association (transformer:honu-operator-ref (syntax-local-value #'head) 1))
|
||||||
|
|
Loading…
Reference in New Issue
Block a user