webapps.help: whoops, caused it to search for ``f``

[factor.git] / extra / webapps / help / help.factor

diff --git a/extra/webapps/help/help.factor b/extra/webapps/help/help.factor
index 19b896109877d0ac2ac580b9cf68e04e0b2e20d6..c5e8d04d5d0d6d4e204b1091b508fd4e577c3f26 100644 (file)
--- a/extra/webapps/help/help.factor
+++ b/extra/webapps/help/help.factor
@@ -20,11 +20,11 @@ TUPLE: help-webapp < dispatcher ;
         { help-webapp "search" } >>template
         [
             "search" param [ unicode:blank? ] trim [
-                f help-dir [
+                f swap help-dir [
                     [ article-apropos ?links "articles" set-value ]
                     [ word-apropos ?links "words" set-value ]
                     [ vocab-apropos ?links "vocabs" set-value ] tri
-                ] with-directory "empty" set-value
+                ] with-directory not "empty" set-value
             ] unless-empty
             help-navbar "navbar" set-value