Path: utzoo!utgpu!news-server.csri.toronto.edu!cs.utexas.edu!rice!hedera!dorai
From: dorai@hedera.rice.edu (Dorai Sitaram)
Newsgroups: comp.lang.scheme
Subject: Re: call/cc
Keywords: continuations
Message-ID: <5834@brazos.Rice.edu>
Date: 16 Mar 90 23:13:23 GMT
References: <1990Mar8.064319.28399@brutus.cs.uiuc.edu> <4459@daffy.cs.wisc.edu> <5832@brazos.Rice.edu>
Sender: root@rice.edu
Distribution: comp
Organization: Rice University, Houston
Lines: 25

In article <5832@brazos.Rice.edu> dorai@hedera.rice.edu, I perpetrate a typo:
$
$(define tree-map
$  (lambda (filter tree)
$    (let loop ([tree tree])
$      (cond [(null? tree) '()]
$            [(atom? tree)
$	     (let ([result (filter tree)])
$	       (if (eq? result 'not-acceptable)
$		   (F (lambda (context)
$			(list 'not-yet tree context))))

		    result ;<-- was left out in the original
		   ;^^^^^^

$							)]
$	    [else (cons (loop (car tree))
$			(loop (cdr tree)))]))))

--dorai
--
-------------------------------------------------------------------------------
It may be that the gulfs will wash us down;
It may be we shall touch the Happy Isles.
-------------------------------------------------------------------------------