add runtime doc info

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 :_))