Minor file-responder fix

2006-07-06 20:13:35 +00:00 · 2006-07-06 20:13:35 +00:00 · 9f2201fe09
parent 6a862a9696
commit 9f2201fe09
1 changed files with 3 additions and 1 deletions
--- a/contrib/httpd/file-responder.factor
+++ b/contrib/httpd/file-responder.factor
@ -23,7 +23,9 @@ sequences strings ;
 SYMBOL: page

 : run-page ( filename -- )
-    [ dup page set run-embedded-file ] with-scope ;
+    dup
+    [ [ dup page set run-embedded-file ] with-scope ] try
+    drop ;

 : include-page ( filename -- )
    "doc-root" get swap path+ run-page ;