| From: Lauri Alanko (la at iki.fi) Date: Sat Feb 25 18:36:15 EST 2006 |
|
On Sat, Feb 25, 2006 at 03:28:10PM -0800, Gregory Woodhouse wrote:
> (define (bound? t s)
> (call/cc
> (lambda (k)
> (let ((x
> (hash-table-get t s (lambda () k #f))))
^^^^
> k #t))))
Btw, use (let/ec k foo) instead of (call/cc (lambda (x) foo)). It's
neater and more efficient.
Lauri
| Posted on the users mailing list. |
|