[racket] how can we modify the example from the reference

From: André Mayers (andre.mayers at usherbrooke.ca)
Date: Sun Sep 11 20:18:42 EDT 2011

In the section 1.2.3.9 : Macro-Introduced Bindings

the example below give the following error 
"define-syntaxes: context (defining "odd.1", ...) expected 2 values,
received 0 values"

 (define-syntax defs-and-uses
    (syntax-rules ()
      [(def-and-use)
       (begin
        ; Declare before definition via no-values define-syntaxes:
        (define-syntaxes (odd even) (values))
        (define (odd x) (if (zero? x) #f (even (sub1 x))))
        (define (even x) (if (zero? x) #t (odd (sub1 x))))
        (odd 17))]))




André Mayers, Ph.D., M. Ps.
professeur agrégé
Département d'informatique
Université de Sherbrooke
Sherbrooke (Québec) Canada J1K 2R1
tél: +1 819-821-8000 poste 62041
fax: +1 819-821-8200
andre.mayers at usherbrooke.ca
http://info.usherbrooke.ca/AndreMayers





Posted on the users mailing list.