fey.naomi/fennel-ls
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix issue with (set (. x y) z)

Browse Source 
fennel needs to skip these instead of failing to parse them
This commit is contained in:
XeroOl 2024-06-30 18:37:55 -05:00
parent 0a5ca27dfa
commit 9e9af12f41
2 changed files with 25 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
src/fennel-ls/compiler.fnl
View File

@ -103,12 +103,15 @@ identifiers are declared / referenced in which places."
(if (sym? binding) (if (sym? binding)
(action binding ?definition keys keys.multival) (action binding ?definition keys keys.multival)
(list? binding) (list? binding)
(let [nested? (not= depth 0)] (let [set-target? (sym? (. binding 1) ".")]
(if nested? (error (.. "I didn't expect to find a nested multival destructure in " (view binding) " at " (view keys)))) (if set-target?
(action binding ?definition keys keys.multival)
(not= depth 0)
(error (.. "I didn't expect to find a nested multival destructure in " (view binding) " at " (view keys)))
(each [i child (ipairs binding)] (each [i child (ipairs binding)]
(set keys.multival i) (set keys.multival i)
(recurse child keys (+ depth 1)) (recurse child keys (+ depth 1))
(set keys.multival nil))) (set keys.multival nil))))
(table? binding) (table? binding)
(accumulate [prev nil (accumulate [prev nil
key child (iter binding)] key child (iter binding)]
@ -129,6 +132,7 @@ identifiers are declared / referenced in which places."
(λ define [?definition binding scope ?opts] (λ define [?definition binding scope ?opts]
(for-each-binding-in binding ?definition (for-each-binding-in binding ?definition
(fn [symbol ?definition keys ?multival] (fn [symbol ?definition keys ?multival]
(when (not (or (list? symbol) (multisym? symbol)))
(let [definition (let [definition
{:binding symbol {:binding symbol
:definition ?definition :definition ?definition
@ -139,12 +143,12 @@ identifiers are declared / referenced in which places."
:var? (?. ?opts :isvar) :var? (?. ?opts :isvar)
: file}] : file}]
(tset (. definitions-by-scope scope) (tostring symbol) definition) (tset (. definitions-by-scope scope) (tostring symbol) definition)
(tset definitions symbol definition))))) (tset definitions symbol definition))))))
(λ mutate [_?definition binding scope] (λ mutate [?definition binding scope]
(for-each-binding-in binding _?definition (for-each-binding-in binding ?definition
(fn [symbol _?definition _keys] (fn [symbol _?definition _keys]
(when (not (multisym? symbol)) (when (not (or (list? symbol) (multisym? symbol)))
(reference symbol scope :write) (reference symbol scope :write)
(if (. references symbol) (if (. references symbol)
(tset (. references symbol :target) :var-set true)))))) (tset (. references symbol :target) :var-set true))))))

1
test/misc.fnl
View File

@ -40,6 +40,7 @@
(λ test {} nil) (λ test {} nil)
(λ {} nil") (λ {} nil")
(create-client-with-files "(fn foo []\n #\n (print :test))") (create-client-with-files "(fn foo []\n #\n (print :test))")
(create-client-with-files "(let [map {}] (set (. map (tostring :a)) :b))")
nil) nil)
(fn test-split-spaces [] (fn test-split-spaces []