From: John Benediktsson <mrjbq7@gmail.com>
Date: Thu, 20 Jan 2022 17:34:05 +0000 (-0800)
Subject: webapps.help: make sure to set ``f`` when empty
X-Git-Tag: 0.99~1736
X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=commitdiff_plain;h=f512525cc7fe4e627cf58e70f97976fcfe532e59

webapps.help: make sure to set ``f`` when empty
---

diff --git a/extra/webapps/help/help.factor b/extra/webapps/help/help.factor
index c5e8d04d5d..c0ab8abdcd 100644
--- a/extra/webapps/help/help.factor
+++ b/extra/webapps/help/help.factor
@@ -12,8 +12,8 @@ TUPLE: help-webapp < dispatcher ;
 : links ( apropos -- seq )
     [ swap <simple-link> ] { } assoc>map ;
 
-: ?links ( has-links? apropos -- has-links? seq )
-    links [ empty? not or ] keep ;
+: ?links ( has-links? apropos -- has-links? seq/f )
+    links [ f ] [ nip t swap ] if-empty ;
 
 :: <search-action> ( help-dir -- action )
     <page-action>