[plt-scheme] How to let a new symbol (created in _syntax-case_) visible at top level ?

From: Andre Mayers (andre.mayers at usherbrooke.ca)
Date: Tue Nov 4 12:46:45 EST 2008

#lang scheme
(define-syntax defsymbol
  (λ (stx)
    (syntax-case stx ()
      [(_ name val)
              (string-append "nv-" (symbol->string (syntax->datum #'name))))]) 
          (list #'define (syntax->datum #'new-name) #'val)

(defsymbol biz 4)

expand: unbound identifier in module in: nv-biz

I am pretty sure that I am not the first to ask the question but I can't find the answer. 

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

Posted on the users mailing list.