Using "DEFINE"

[Chuck Darney <cdarney@xxxxxxxxxxxxxxxx>]

I would like to add attributes to my top-most element (in this case,
"cgideliv") to be used to set some variable options in the DSL.  I want
to try something like:

(element cgideliv
   (let (deliv (inherited-attribute-string "type))
      (case deliv
         (("generic")
            (define %page-numbering% #f)
            (define %page-header% #t)
            (define %use-footer% #t))
         (("summary"
            (define %page-numbering% #f)
            (define %page-header% #f)
            (define %use-footer% #f))
         (("cert"
            (define %page-numbering% #t)
            (define %page-header% #t)
            (define %use-footer% #t))))

I would then use the defined names later in the DSL to use or not use
the particular option.  

Is it possible to do this?  The above case gives an error that I can't
use the keyword "define" as a variable.  

...Chuck Darney
...cdarney@xxxxxxxxxxxxxxxx


 DSSSList info and archive:  http://www.mulberrytech.com/dsssl/dssslist