fix warnings and stack issue

src/fennel-ls/analyzer.fnl

@@ -237,7 +237,7 @@ initialization-opts: {:stack ?list[ast]
     (case (docs.get-builtin server base-name)
       metadata (search-document server metadata stack opts)
       _ (case (find-local-definition file base-name scope)
-          def (search-definition server file def [] opts)
+          def (search-definition server file def stack opts)
           _ (case (docs.get-global server base-name)
               metadata (search-document server metadata stack opts))))))
 

src/fennel-ls/formatter.fnl

@@ -7,10 +7,9 @@ user code. Fennel-ls doesn't support user-code formatting as of now."
         : view
         : table?
         : varg?
-        : list? &as fennel} (require :fennel))
+        : list?} (require :fennel))
 
 (local navigate (require :fennel-ls.navigate))
-(local utils (require :fennel-ls.utils))
 
 (λ code-block [str]
   (.. "```fnl\n" str "\n```"))
@@ -65,23 +64,6 @@ user code. Fennel-ls doesn't support user-code formatting as of now."
                 ")")
             (render-arglist args args-offset))))
 
-(fn metadata-format [{: binding : metadata}]
-  "formats a special using its builtin metadata magic"
-  (..
-    (code-block
-      (if (not metadata.fnl/arglist)
-        (tostring binding)
-        (= 0 (length metadata.fnl/arglist))
-        (.. "(" (tostring binding) ")")
-        (.. "(" (tostring binding) " "
-            (table.concat
-              (icollect [_ v (ipairs metadata.fnl/arglist)]
-                (render-arg v))
-              " ")
-            ")")))
-    "\n---\n"
-    (or metadata.fnl/docstring "")))
-
 (λ fn? [symbol]
   (if (sym? symbol)
     (let [name (tostring symbol)]