exercise-2.scm (287B)
1 (define-library (sicp tests chapter-1 exercise-2) 2 (import (scheme base) 3 (srfi :64) 4 (sicp solutions chapter-1 exercise-2)) 5 6 (begin 7 (test-begin "chapter-1-exercise-2") 8 (test-equal 9 expression 10 (/ (- 37) 150)) 11 #; (test-end "1.2") 12 ))