[honu] move test file. minor cleanups to the parsing code

This commit is contained in:
Jon Rafkind 2011-08-19 11:33:43 -06:00
parent 47d613f4ec
commit c6e35ff665
2 changed files with 1 additions and 12 deletions

View File

@ -177,18 +177,7 @@
(values (left #'parsed)
#'rest)
(do-parse #'rest precedence
left
;; (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)))))]
left #'parsed)))))]
[(honu-operator? #'head)
(define new-precedence (transformer:honu-operator-ref (syntax-local-value #'head) 0))
(define association (transformer:honu-operator-ref (syntax-local-value #'head) 1))