[plt-scheme] Scheme Sublanguage

Hi all,

I was, just for fun, trying to create a scheme sublanguage. So I
created a module with only the needed constructs at basic-language.ss:

(module basic-language mzscheme

  ;; Defines a basic language with define, if, zero, 1+ and 1-.

  (define 1+ add1)
  (define 1- sub1)

  (provide
           define
           if
           zero?
           1+
           1-))

Then I tried to use this:
(module test basic-language

  (define x 1)

  )


But I'm getting
module: no #%module-begin binding in the module's language in: (module
test basic-language (define x 1))

Can someone explain why this is not working?  version 402.

Cheers,
--
Paulo Jorge Matos - pocm at sat inesc-id pt
Web: http://sat.inesc-id.pt/~pocm
Computer and Software Engineering
INESC-ID - SAT Group