I've tweaked and commented the end of Mathias's example:
(check-exn exn:fail:contract? (lambda () (f 1))) ; violates contract by
(check-exn exn:fail:contract? (lambda () (f 'a)))) ; violates contract by
being called with a non-integer
and "thunking" makes my example work as I wanted:
(pairwise-stream (stream-cons 1 empty-stream)))))
You received this message because you are subscribed to the Google Groups
"Racket Users" group.
To unsubscribe from this group and stop receiving emails from it, send an email
For more options, visit https://groups.google.com/d/optout.