From: John Benediktsson <mrjbq7@gmail.com>
Date: Thu, 20 Jan 2022 18:13:55 +0000 (-0800)
Subject: webapps.help: set search and empty when not provided
X-Git-Tag: 0.99~1734
X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=commitdiff_plain;h=9fe375f7368f3eb9c62a8fb04e8165d343a40af4

webapps.help: set search and empty when not provided
---

diff --git a/extra/webapps/help/help.factor b/extra/webapps/help/help.factor
index 177386fd14..d6f46f3166 100644
--- a/extra/webapps/help/help.factor
+++ b/extra/webapps/help/help.factor
@@ -19,14 +19,14 @@ TUPLE: help-webapp < dispatcher ;
     <page-action>
         { help-webapp "search" } >>template
         [
-            "search" param [ unicode:blank? ] trim [
-                dup "search" set-value
-                f swap help-dir [
+            f "search" param [ unicode:blank? ] trim
+            dup "search" set-value [
+                help-dir [
                     [ article-apropos ?links "articles" set-value ]
                     [ word-apropos ?links "words" set-value ]
                     [ vocab-apropos ?links "vocabs" set-value ] tri
-                ] with-directory not "empty" set-value
-            ] unless-empty
+                ] with-directory
+            ] unless-empty not "empty" set-value
             help-navbar "navbar" set-value
 
             { help-webapp "search" } <chloe-content>