7d50e61c7f
* Another big chunk of v4-require-isms * Allow `#lang framework/keybinding-lang' for keybinding files * Move hierlist sources into "mrlib/hierlist", leave stub behind svn: r10689
16 lines
422 B
Scheme
16 lines
422 B
Scheme
#lang scheme/base
|
|
|
|
(provide mapdesc)
|
|
(require (for-syntax scheme/base)
|
|
scribble/decode
|
|
scribble/manual)
|
|
|
|
(define-syntax (mapdesc stx)
|
|
(syntax-case stx ()
|
|
[(_ cmd events)
|
|
#'(make-splice (list (index (symbol->string 'cmd))
|
|
(symbol->string 'cmd)
|
|
" ("
|
|
(symbol->string 'events)
|
|
" events)"))]))
|