diff --git a/src/fennel-ls/compiler.fnl b/src/fennel-ls/compiler.fnl index d070ef0..19af932 100644 --- a/src/fennel-ls/compiler.fnl +++ b/src/fennel-ls/compiler.fnl @@ -208,6 +208,7 @@ identifiers are declared / referenced in which places." (local defer []) (λ call [ast scope] + "every list that is a call to a special or macro or function" (tset calls ast true) (tset scopes ast scope) ;; Most calls aren't interesting, but here's the list of the ones that are: diff --git a/test/completion.fnl b/test/completion.fnl index d932349..4ff4cd3 100644 --- a/test/completion.fnl +++ b/test/completion.fnl @@ -279,14 +279,9 @@ ;; (it "does suggest items from earlier definitions in the same `let`") ;; (it "does not suggest macros defined from later definitions") -;; (it "suggests fields of strings")) - ;; (it "offers rich information about variable completions") - ;; (it "offers rich information about field completions") - ;; (it "offers rich information about method completions") ;; (it "offers rich information about module completions") ;; (it "offers rich information about macro-module completions"))) ;; (it "suggests known module names in `require` and `include` and `import-macros` and `require-macros` and friends") -;; (it "knows the fields of the standard lua library.") ;; (it "suggests known fn keys when using the `:` special") ;; (it "suggests known keys when using the `.` special") ;; (it "does not suggest special forms for the \"call\" position when a list isn't actually a call, ie destructuring assignment") diff --git a/test/goto-definition.fnl b/test/goto-definition.fnl index 35e5726..2c2f4f2 100644 --- a/test/goto-definition.fnl +++ b/test/goto-definition.fnl @@ -203,14 +203,11 @@ ; ;; (it "can go to the definition in a lua file") ; ;; (it "finds (set a.b) definitions") ; (it "finds (fn a.b [] ...) declarations" -; (check :goto-definition.fnl 51 12 :goto-definition.fnl 50 4 50 22)) ; ;; (it "finds (tset a :b) definitions") ; ;; (it "finds (setmetatable a {:__index {:b def}) definitions") ; ;; (it "finds definitions into a function (fn foo [] (local x 10) {: x}) (let [result (foo)] (print result.x)) finds result.x") ; ;; (it "finds definitions through a function (fn foo [{: y}] {:x y}) (let [result (foo {:y {}})] (print result.x)) finds result.x") ; ;; (it "finds through setmetatable with an :__index function") -; ;; (it "can go to a function's references OR read type inference comments when callsite isn't available (PICK ONE)") -; ;; (it "can work with a custom fennelpath") ;; Wait until an options system is done {: test-basics : test-indirection