From c6e35ff665b8abe1a0b2fcb8d78053b361b86c44 Mon Sep 17 00:00:00 2001
From: Jon Rafkind <rafkind@racket-lang.org>
Date: Fri, 19 Aug 2011 11:33:43 -0600
Subject: [PATCH] [honu] move test file. minor cleanups to the parsing code

---
 collects/honu/core/private/parse2.rkt          | 13 +------------
 collects/honu/{core/private => tests}/test.rkt |  0
 2 files changed, 1 insertion(+), 12 deletions(-)
 rename collects/honu/{core/private => tests}/test.rkt (100%)

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