tests/test-cond.scm

   1 (display (cond (#f 2) ((= 1 2) 4) (#t 2)))
   2 ;; if all is false, returns an object, acceptable
   3
   4 (define x 3)
   5 (define y 2)
   6 (set! x 5)
   7
   8 (display (cond ((> y x) "foo")
   9                ((= 1 2) "bar")
  10                (else "baz")))