Skip to content

Commit

Permalink
Just removed a wrong comment
Browse files Browse the repository at this point in the history
  • Loading branch information
Álvaro Castro-Castilla committed May 14, 2010
1 parent 747b0f7 commit ffafe66
Showing 1 changed file with 0 additions and 1 deletion.
1 change: 0 additions & 1 deletion srfi/test-2.scm
Expand Up @@ -35,7 +35,6 @@
(test-equal (let ((x #f)) (and-let* (x (y (- x 1)) ((positive? y))) (/ x y))) #f)
(test-equal (let ((x 3)) (and-let* (x (y (- x 1)) ((positive? y))) (/ x y))) 3/2)

;; Needs to use eval to expand macro in current environment (CHECK!)
(test-error (test-read-eval-string "(and-let* ( #f (x 1)))"))
(test-error (test-read-eval-string "(and-let* (2 (x 1)))"))
(test-error
Expand Down

0 comments on commit ffafe66

Please sign in to comment.