suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Changing let/cc to let/ec

Browse Source 
svn: r645
This commit is contained in:
Jay McCarthy 2005-08-24 16:01:47 +00:00
parent 193aac8a96
commit 5b4bd6ac4a
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/web-server/servlet.ss
View File

@ -68,11 +68,11 @@
;; send/back a response generated from a procedure that may convert ;; send/back a response generated from a procedure that may convert
;; procedures to continuation urls ;; procedures to continuation urls
(define (send/suspend/dispatch response-generator) (define (send/suspend/dispatch response-generator)
(let/cc k0 (let/ec k0
(send/back (send/back
(response-generator (response-generator
(lambda (proc) (lambda (proc)
(let/cc k1 (k0 (proc (send/suspend k1))))))))) (let/ec k1 (k0 (proc (send/suspend k1)))))))))
;; ************************************************************ ;; ************************************************************