eval map with import environment

eval map with import environment pasted by Buglouse on Mon May 9 20:34:29 2016

(use args) (define OPTS '(((h help) (#:none "Help") "Print option information." (option-info)) ((f foo) (#:none "Foo.") "Foo."))) (define (option-records #!optional (opts OPTS)) (map (lambda (opt) (eval `(args:make-option ,@opt))) opts))

annotation added by Buglouse on Mon May 9 20:59:24 2016

(use args)
(define OPTS '(((h help) (#:none "Help") "Print option information." (option-info))
               ((f foo) (#:none "Foo.") "Foo.")))
(define (option-records #!optional (opts OPTS))
  (map (lambda (opt)
         (eval `(args:make-option ,@opt)))
       opts))