/ gui-lib / framework / private / mapdesc.rkt
mapdesc.rkt
 1  #lang scheme/base
 2  
 3  (provide mapdesc)
 4  (require (for-syntax scheme/base)
 5           scribble/decode
 6           scribble/manual)
 7  
 8  (define-syntax (mapdesc stx)
 9    (syntax-case stx ()
10      [(_ cmd events)
11       #'(make-splice (list (index (symbol->string 'cmd))
12                            (symbol->string 'cmd)
13                            " ("
14                            (symbol->string 'events)
15                            " events)"))]))