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

fix test case

Browse Source 
The test committed previously wasn't the intended test.
This commit is contained in:
Matthew Flatt 2018-05-23 14:54:35 -06:00
parent 37dde6dc1e
commit 61a50fbf93
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
pkgs/racket-test-core/tests/racket/module.rktl
View File

@ -2611,11 +2611,14 @@ case of module-leve bindings; it doesn't cover local bindings.
(define-syntax (module-begin stx) (define-syntax (module-begin stx)
(syntax-case stx () (syntax-case stx ()
[(_ a b) [(_ a b)
#'(#%module-begin b)]))) (begin
(local-expand #'(#%module-begin a) 'module-begin null)
#'(#%module-begin b))])))
(module use (submod ".." mb) (module use (submod ".." mb)
(module* m racket/base) (module* m racket/base)
(require (submod "." m "..")))))) (require (submod "." m "..")))))
exn:fail?)
;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;