On Sun, Mar 20, 2011 at 4:58 PM, Gregory Woodhouse wrote:
> If I write a trivial loop using call/cc
>
> (call/cc
> (lambda (k)
> (define (loop)
> (let ([x (read)])
> (if (eq? x '())
> (k x)
> (loop
> (loop)))
>
> It does exactly what I expect. If I type anyth
If I write a trivial loop using call/cc
(call/cc
(lambda (k)
(define (loop)
(let ([x (read)])
(if (eq? x '())
(k x)
(loop
(loop)))
It does exactly what I expect. If I type anything but () it reads again, but if
I type () it prints out '() and quits
W
2 matches
Mail list logo