diff --git a/collects/honu/core/private/parse2.rkt b/collects/honu/core/private/parse2.rkt index bafc04ce4a..10cfff7814 100644 --- a/collects/honu/core/private/parse2.rkt +++ b/collects/honu/core/private/parse2.rkt @@ -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)) diff --git a/collects/honu/core/private/test.rkt b/collects/honu/tests/test.rkt similarity index 100% rename from collects/honu/core/private/test.rkt rename to collects/honu/tests/test.rkt