Modular weirdness

[RT Happe <rthappe@mathematik.uni-freiburg.de>]

The module created below derives its view of the world from scheme,
but nonetheless it holds that (current-output-port) is no output-port?

Scsh 0.5.3
> ,config
config> (define-structure test-pkg (export (test :syntax))
  (open scheme)
  (begin
    (define-syntax test
      (syntax-rules ()
        ((test out)
         (output-port? out))))))

config> ,user
> ,open test-pkg
Load structure test-pkg (y/n)? y
[test-pkg

]

> (test (current-output-port))
#f

> ,expand (test (current-output-port))
'(#(>> test output-port?) (current-output-port))

> (output-port? (current-output-port))
#t

> ,in test-pkg
test-pkg> (test (current-output-port))
#f

test-pkg> (output-port? (current-output-port))
#f

test-pkg>

--
rthappe