From 5cef13c12dad66a523c8d6c86982c422835f2465 Mon Sep 17 00:00:00 2001 From: XeroOl Date: Fri, 14 Jun 2024 22:24:52 -0500 Subject: [PATCH] Ignore the pick-values syms (in preparation for fennel 1.5.0) --- src/fennel-ls/compiler.fnl | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/src/fennel-ls/compiler.fnl b/src/fennel-ls/compiler.fnl index 2dbb309..d7e229a 100644 --- a/src/fennel-ls/compiler.fnl +++ b/src/fennel-ls/compiler.fnl @@ -148,12 +148,13 @@ identifiers are declared / referenced in which places." (if (. references symbol) (tset (. references symbol :target) :var-set true)))))) - (λ destructure [to from scope {:declaration ?declaration? :symtype _ &as opts}] + (λ destructure [to from scope {:declaration ?declaration? : symtype &as opts}] ;; I really don't understand symtype ;; I think I need an explanation - (if ?declaration? - (define to from scope opts) - (mutate to from scope))) + (when (not= symtype :pv) + (if ?declaration? + (define to from scope opts) + (mutate to from scope)))) (λ add-field [ast multisym scope] "the multisym has the main name and the root name"