hash.scm

(define-syntax hash
  (er-macro-transformer
   (lambda (expr r c) ; expression rename compare
     (let ((body  (cdr expr)))
       ;; code-expansion, self-executable lambda
       `(((lambda ()
	    (let ((table make-strong-eq-hash-table))
	      ,(let loop
		   ((pairs body))
		 (if (> (length pairs) 2)
		     (cons '(hash-table/put! table ,(car pairs) ,(cdar pairs)) loop(cddr pairs))
		     '()))
	      table))))))))