module option :rename broken?

[Martin Grabmueller]

Hello folks,

when cleaning up the examples directory, I found that my module
examples do not work anymore.  The problem can be reproduced with this
example module:

-=-=-=-=-=-=-=-=-
(define-module (test))
(export foo bar)
(define (foo) 1)
(define (bar) 2)
-=-=-=-=-=-=-=-=-

When I use this module with the :rename option and
`symbol-prefix-proc', the variable `foo' is exported without renaming,
as shown below:

 guile> address@hidden (~): guile
 guile> (use-modules ((test) :rename (symbol-prefix-proc 'module-1:))) 
 guile> foo
 #<procedure foo ()>
 guile> module-1:foo
 <unnamed port>: In expression module-1:foo:
 <unnamed port>: Unbound variable: module-1:foo
 ABORT: (unbound-variable)

 Type "(backtrace)" to get more information or "(debug)" to enter the debugger.
 guile> 

I hope someone can help me with that, I couldn't figure the problem
out on my own.

Regards,
  'martin