fix `syntax-local-get-shadower' for submodules

Closes PR 12926, 12928

Merge to v5.3

original commit: a0ba30d8e7c16fbd572856ea950e82d98ccca4be
This commit is contained in:
Matthew Flatt 2012-07-22 21:40:31 -05:00
parent 97ff83ae1d
commit 45606c4539

View File

@ -714,6 +714,27 @@
(list (signature->symbols s^))
(list (list))))
;; ----------------------------------------
;; In a submodule
(module unit-in-a-submodule racket/base
(require racket/unit)
(define-signature foo^ (f))
(module+ main
(define-unit foo@
(import)
(export foo^)
(define f (lambda (x) x)))
(define-values/invoke-unit/infer foo@)
(define out (f 50))
(provide out)))
(test 50 dynamic-require '(submod 'unit-in-a-submodule main) 'out)
;; --------------------------------------------------
(report-errs)