steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Fix stack effect bug in httpd

darcs
slava 2006-12-18 03:15:33 +00:00
parent 86d7553b9c
commit 917a42cb4a
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
libs/httpd/responder.factor
View File

@ -123,7 +123,7 @@ SYMBOL: responders
call call
] make-hash add-responder ; ] make-hash add-responder ;
: vhost ( name -- responder ) : vhost ( name -- vhost )
vhosts get hash [ "default" vhost ] unless* ; vhosts get hash [ "default" vhost ] unless* ;
: responder ( name -- responder ) : responder ( name -- responder )
@ -150,7 +150,7 @@ SYMBOL: responders
swap responder call-responder swap responder call-responder
] [ ] [
! Just a responder name by itself ! Just a responder name by itself
drop "request" get "/" append redirect drop drop "request" get "/" append redirect 2drop
] if ; ] if ;
: serve-responder ( method path host -- ) : serve-responder ( method path host -- )