program-module returns a non-module

[Jose A. Ortega Ruiz]

Hi,

When called on a program (procedure object) implemented in C,
program-module returns something that is not a module:

  (define cp (module-ref (current-module) 'cons))

  (program? cp) => #t
  (program-module cp) => #<pointer 0xb77ccbb0>
  (module? (program-module cp)) => #f

Since `cp' above is a program, i was expecting the return value to be
always a module: is that a wrong expectation or is this a bug?

Cheers,
jao
-- 
Ignorance more frequently begets confidence than does knowledge
  - Charles Darwin