scheme, gauche, defmacro, def-related-closures

def-related-closures.scm

(define-macro (def-related-closures var-binds . proc-binds)
  `(define-values ,(map car proc-binds)
     (let ,var-binds
      (values ,@(map cadr proc-binds)))))

(def-related-closures ((count 0)(step 1))
  (inc (lambda ()
         (set! count (+ count step))))
  (dec (lambda ()
         (set! count (- count step))))
  (reset (lambda ()
           (set! count 0))))

(map (lambda (e)
       (e))
     (list inc inc inc dec reset dec dec reset))
;; (1 2 3 2 0 -1 -2 0)