Merge pull request #207 from sl-sh-dev/fix-docs-macro

fix: docs macro no longer double-printing usage string
sl-sh-dev · Oct 10, 2024 · 4ad9459 · 4ad9459
2 parents d71d454 + 0f7cf6f
commit 4ad9459
Showing 1 changed file with 4 additions and 4 deletions.
diff --git a/lisp/core.slosh b/lisp/core.slosh
@@ -289,11 +289,11 @@ Section: core
 %#
 (defmacro doc (sym)
     (let (docs `(get-prop ~sym :doc-string)
-         has-usage (str-starts-with "Usage:" (str-trim (str docs))))
+         has-usage `(str-starts-with (str-trim (str ~docs)) "Usage:"))
         (do
-        (if has-usage
-          `(prn ~docs)
-          `(prn (str (usage ~sym) "\n\n" ~docs))))))
+        `(if ~has-usage
+          (prn ~docs)
+          (prn (str (usage ~sym) "\n\n" ~docs))))))
 
 #%
 Evaluate body a number of times equal to times' numerical value.