suzanne.soy/macro-debugger
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fixed macro-stepper tests

Browse Source 
original commit: 97954f7c37f717cc4c3e826027069d5e5beb5d11
This commit is contained in:
Ryan Culpepper 2012-09-17 12:43:36 -04:00
parent adf976fd4d
commit b3dd6bfbae
2 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
collects/tests/macro-debugger/tests/collects.rkt
View File

@ -66,8 +66,12 @@
(apply omnr args)])) (apply omnr args)]))
(define (rel+mod->mod rel mod) (define (rel+mod->mod rel mod)
(define-values (base file dir?) (split-path (resolved-module-path-name rel))) (let* ([rel (resolved-module-path-name rel)]
(path->mod (simplify-path (build-path base mod)))) [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) (define (path->mod path)
(cond [(for/or ([c (current-library-collection-paths)]) (path->mod* path c)) (cond [(for/or ([c (current-library-collection-paths)]) (path->mod* path c))

2
collects/tests/macro-debugger/tests/policy.rkt
View File

@ -38,7 +38,7 @@
;; Other racket/* forms ;; Other racket/* forms
(test-base scheme:match #f) (test-base scheme:match #f)
(test-base scheme:unit #t) (test-base scheme:unit #f)
(test-base scheme:class #f) (test-base scheme:class #f)
;; Unbound names ;; Unbound names