Summary
star export '(module foo * ...)' doesn't work with reexport
Metadata
- Id: 04d2f8897ea2d235bd8158c721d8e98112b19cf1
- Trac id: 843
- Type: defect
- Reporter: megane
- Owner: felix
- Cc:
- Status: closed
- Component: unknown
- Estimated difficulty:
- Resolution: fixed
- Priority: minor
- Milestone: 4.9.0
- Version: 4.7.x
- Changetime: 2012-06-12 12:56:40 UTC
- Created: 2012-05-14 15:37:49 UTC
- Keywords:
Attachments
- 04d2f8897ea2d235bd8158c721d8e98112b19cf1/attachments/patch-843
Description
Fails with 4.7.5 (rev e6671cd)
In the case below you can see that the export of 'bar' is lost when using reexport.
Ticket #219 might be related.
(module a *
(import chicken scheme) (define foo 1))
(module b (bar)
(import chicken scheme) (reexport a) (define bar 2))
(module c *
(import chicken scheme) (reexport a) ;; <- oops, bar not exported anymore (define bar 2))
(import (prefix b b/)) (import (prefix c c/))
(print b/foo) (print c/foo)
(print b/bar) (print c/bar) ;; <- Error: unbound variable: c/bar