commit b3dd6bfbaef6aba8f105408733d3d43e62f7da27 parent adf976fd4dc636179d921ab00d74d1aa083e1886 Author: Ryan Culpepper <ryanc@racket-lang.org> Date: Mon, 17 Sep 2012 12:43:36 -0400 fixed macro-stepper tests original commit: 97954f7c37f717cc4c3e826027069d5e5beb5d11 Diffstat:
| M | collects/tests/macro-debugger/tests/collects.rkt | | | 8 | ++++++-- |
| M | collects/tests/macro-debugger/tests/policy.rkt | | | 2 | +- |
2 files changed, 7 insertions(+), 3 deletions(-)
diff --git a/collects/tests/macro-debugger/tests/collects.rkt b/collects/tests/macro-debugger/tests/collects.rkt @@ -66,8 +66,12 @@ (apply omnr args)])) (define (rel+mod->mod rel mod) - (define-values (base file dir?) (split-path (resolved-module-path-name rel))) - (path->mod (simplify-path (build-path base mod)))) + (let* ([rel (resolved-module-path-name rel)] + [rel (if (pair? rel) (car rel) rel)]) + (if (pair? mod) + #f ;; give up on submodules for now; FIXME + (let-values ([(base file dir?) (split-path rel)]) + (path->mod (simplify-path (build-path base mod))))))) (define (path->mod path) (cond [(for/or ([c (current-library-collection-paths)]) (path->mod* path c)) diff --git a/collects/tests/macro-debugger/tests/policy.rkt b/collects/tests/macro-debugger/tests/policy.rkt @@ -38,7 +38,7 @@ ;; Other racket/* forms (test-base scheme:match #f) - (test-base scheme:unit #t) + (test-base scheme:unit #f) (test-base scheme:class #f) ;; Unbound names