[plt-scheme] Bridging the gap (tiny correction)

On Wed, Mar 18, 2009 at 10:46:10AM -0400, Gary Baumgartner wrote:
[...]
>   (define (?) (error "No."))
>   ;

Oops, I ate a line somehow, though I doubt it confused anyone who
 would think about that implementation. Just in case there's an
 ambitious reader typing it in and trying to learn from it:

(define-syntax -<

>   (syntax-rules ()
>     ((-<) (?))
>     ((-< <e0> . <es>)
>      (let ((old-fail ?))
>        (let/cc resatisfy
>          (set! ? (lambda () (set! ? old-fail) (resatisfy (-< . <es>))))
>          <e0>)))))
[...]