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

Fix default main responder

db4
Slava Pestov 2008-06-02 21:59:23 -05:00
parent d29069ed0b
commit d0edbccf67
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
extra/http/server/server.factor
View File

@ -22,7 +22,7 @@ C: <trivial-responder> trivial-responder
M: trivial-responder call-responder* nip response>> clone ;
main-responder global [ <404> <trivial-responder> get-global or ] change-at
main-responder global [ <404> <trivial-responder> or ] change-at
: invert-slice ( slice -- slice' )
dup slice? [ [ seq>> ] [ from>> ] bi head-slice ] [ drop { } ] if ;