From 478bc8649e485670a1e4dd09f9faeff21044ae3e Mon Sep 17 00:00:00 2001 From: Scott Richmond Date: Tue, 4 Jun 2024 13:04:53 -0400 Subject: [PATCH] add runtime doc info --- janet/interpreter.janet | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/janet/interpreter.janet b/janet/interpreter.janet index 8b460c3..eaad40d 100644 --- a/janet/interpreter.janet +++ b/janet/interpreter.janet @@ -358,8 +358,8 @@ # Depends on: good string representation of patterns # For now, this should be enough to tall the thing (defn- fnn [ast ctx] - (def {:name name :data clauses} ast) - (def the-fn @{:name name :^type :fn :body clauses :ctx ctx}) + (def {:name name :data clauses :doc doc} ast) + (def the-fn @{:name name :^type :fn :body clauses :ctx ctx :doc doc}) (set (ctx name) the-fn)) (defn- is_placeholder [x] (= x :_))