@ -107,6 +107,3 @@
(let ([vals (call-with-values (λ () (eval-with ht expr))
(λ vals vals))])
(car vals)))
(let ([ht #hash((a . 1) (b . 1))])
(eval-with1 ht '(+ b a 1)))