Add protocol slot to make it work with funny load order

db4
Slava Pestov 2008-12-19 00:52:41 -06:00
parent 84cafde43a
commit 44b6a490a1
1 changed files with 2 additions and 0 deletions
basis/http/server/cgi

View File

@ -58,6 +58,8 @@ IN: http.server.cgi
] with-stream
] >>body ;
SLOT: special
: enable-cgi ( responder -- responder )
[ serve-cgi ] "application/x-cgi-script"
pick special>> set-at ;