[plt-scheme] scheme-unit and contracts

Hi there,

I was trying to use scheme-unit's require/expose macro to test some
functions I do not want to export out of a module. Unfortunatly there is
something about contracts that breaks the macro:

(begin
  (module test-module mzscheme
    (require (lib "contract.ss")
             (lib "etc.ss"))

    (define/contract f
      (-> any/c any/c)
      identity))

  (require
   (planet "util.ss" ("schematics" "schemeunit.plt" 1)))

  (require/expose test-module (f)))

> namespace-variable-value: bound to syntax in: f

Any suggestions for a work around?

Thanks,

-pp
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.racket-lang.org/users/archive/attachments/20060124/eac870ad/attachment.html>