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

add runtime doc info

Browse Source
This commit is contained in:
Scott Richmond 2024-06-04 13:04:53 -04:00
parent 1842923fa3
commit 478bc8649e
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
janet/interpreter.janet
View File

@ -358,8 +358,8 @@
# Depends on: good string representation of patterns # Depends on: good string representation of patterns
# For now, this should be enough to tall the thing # For now, this should be enough to tall the thing
(defn- fnn [ast ctx] (defn- fnn [ast ctx]
(def {:name name :data clauses} ast) (def {:name name :data clauses :doc doc} ast)
(def the-fn @{:name name :^type :fn :body clauses :ctx ctx}) (def the-fn @{:name name :^type :fn :body clauses :ctx ctx :doc doc})
(set (ctx name) the-fn)) (set (ctx name) the-fn))
(defn- is_placeholder [x] (= x :_)) (defn- is_placeholder [x] (= x :_))