1 (define-macro (check form)
3 (error "Check failed: " ',form)))
6 (< (abs (- a b)) 1e-8))
9 (check (=~ (foo 1 2 "bar" 4) 15))
11 ;; Check second method
12 (check (=~ (foo 1 2) 4811.4))
13 (check (=~ (foo 1 2 3.2) 4797.2))
14 (check (=~ (foo 1 2 3.2 #\Q) 4798.2))