scsh-conservatory
/
sunet
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Fixed two bugs in case-returned-via.

This commit is contained in:
mainzelm 2003-03-07 13:08:36 +00:00
parent e12ba6a042
commit 2e5f385410
1 changed files with 10 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
scheme/httpd/surflets/surflets.scm
View File

@ -696,24 +696,24 @@
(case-returned-via bindings clauses ...))) (case-returned-via bindings clauses ...)))
((case-returned-via bindings (else body ...)) ((case-returned-via bindings (else body ...))
(begin body ...)) (begin body ...))
((case-returned-via bindings
((%return-object ...) => %proc))
(cond ((or (returned-via %return-object bindings) ...)
=> %proc)))
((case-returned-via bindings ((case-returned-via bindings
((%return-object ...) %body ...)) ((%return-object ...) %body ...))
(if (or (returned-via? %return-object bindings) ...) (if (or (returned-via? %return-object bindings) ...)
(begin %body ...))) (begin %body ...)))
((case-returned-via bindings ((case-returned-via bindings
((%return-object ...) => %proc)) ((%return-object ...) => %proc)
%clause %clauses ...)
(cond ((or (returned-via %return-object bindings) ...) (cond ((or (returned-via %return-object bindings) ...)
=> %proc))) => %proc)
(else
(case-returned-via bindings %clause %clauses ...))))
((case-returned-via bindings ((case-returned-via bindings
((%return-object ...) %body ...) ((%return-object ...) %body ...)
%clause %clauses ...) %clause %clauses ...)
(if (or (returned-via? %return-object bindings) ...) (if (or (returned-via? %return-object bindings) ...)
(begin %body ...) (begin %body ...)
(case-returned-via bindings %clause %clauses ...))) (case-returned-via bindings %clause %clauses ...)))))
((case-returned-via bindings
((%return-object ...) %proc)
%clause %clauses ...)
(cond ((or (returned-via %return-object bindings) ...)
=> %proc)
(else
(case-returned-via bindings %clause %clauses ...))))))