From 98d6b1c8655bfe5e2a864ee31d2867f7fd1979e8 Mon Sep 17 00:00:00 2001 From: Scott Richmond Date: Sat, 15 Jun 2024 17:03:37 -0400 Subject: [PATCH] fix some bugs --- src/base.janet | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) diff --git a/src/base.janet b/src/base.janet index c0fee40..95203dd 100644 --- a/src/base.janet +++ b/src/base.janet @@ -130,8 +130,12 @@ (string/join (map (fn [x] (-> x first show-patt)) clauses) "\n")) (defn doc [fnn] - (def {:name name :doc doc} fnn) - (string/join [name (pretty-patterns fnn) doc] "\n")) + (when (not= :fn (ludus/type fnn)) (break "No documentation available.")) + (def {:name name :doc docstring} fnn) + (string/join [name + (pretty-patterns fnn) + (if docstring docstring "No docstring available.")] + "\n")) (defn- conj!-set [sett value] (set (sett value) true)