Use if-box in http.server

2008-02-29 10:37:39 -06:00 · 2008-02-29 10:37:39 -06:00 · 24b4fb0df9
parent cc3f226cd3
commit 24b4fb0df9
1 changed files with 1 additions and 1 deletions
--- a/extra/http/server/sessions/sessions.factor
+++ b/extra/http/server/sessions/sessions.factor
@ -23,7 +23,7 @@ TUPLE: session id manager namespace alarm ;
 : timeout ( -- dt ) 20 minutes ;

 : cancel-timeout ( session -- )
-    alarm>> ?box [ cancel-alarm ] [ drop ] if ;
+    alarm>> [ cancel-alarm ] if-box? ;

 : delete-session ( session -- )
    dup cancel-timeout