twc/ludus
4
0
Fork 0
Code Issues 28 Pull Requests Packages Projects 8 Releases Wiki Activity

fix some bugs

Browse Source
This commit is contained in:
Scott Richmond 2024-06-15 17:03:37 -04:00
parent aba77569ac
commit 98d6b1c865
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/base.janet
View File

@ -130,8 +130,12 @@
(string/join (map (fn [x] (-> x first show-patt)) clauses) "\n")) (string/join (map (fn [x] (-> x first show-patt)) clauses) "\n"))
(defn doc [fnn] (defn doc [fnn]
(def {:name name :doc doc} fnn) (when (not= :fn (ludus/type fnn)) (break "No documentation available."))
(string/join [name (pretty-patterns fnn) doc] "\n")) (def {:name name :doc docstring} fnn)
(string/join [name
(pretty-patterns fnn)
(if docstring docstring "No docstring available.")]
"\n"))
(defn- conj!-set [sett value] (defn- conj!-set [sett value]
(set (sett value) true) (set (sett value) true)