From 2cf6a9883b59fe27fc6cd4888261416a2e929be3 Mon Sep 17 00:00:00 2001
From: Colin Okay <okay@toyful.space>
Date: Tue, 15 Mar 2022 16:33:56 -0500
Subject: fixed odd help printout on `ol help`

---
 app/app.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'app')

diff --git a/app/app.lisp b/app/app.lisp
index 93181a8..c9372c8 100644
--- a/app/app.lisp
+++ b/app/app.lisp
@@ -275,7 +275,7 @@ than the users."
                   (ecase (a:make-keyword (string-upcase command))
                     (:help
                      (princ #\newline)
-                     (help-topic (first args)))
+                     (help-topic (or (first args) "help")))
                     (:search
                      (cond
                        ;; if there are args, use them as search terms
-- 
cgit v1.2.3