#!r6rs

(library (static-map)
         (export static-map)
         (import (rnrs)
                 (for (rnrs) (meta -1)))

(define-syntax static-map
  (syntax-rules ()
    ((_ (name value) ...)
     (syntax-rules (<names> name ...)
       ((_ <names>) '(name ...))
       ((_ name) value) ...)))))