defmacro: def-related-closures

思いついたので書いた。後悔はしていない。必要ない気がする。

	(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)

view raw def-related-closures.scm hosted with ❤ by GitHub