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

Disable printing during compilation.

Browse Source
This commit is contained in:
Phil Hagelberg 2025-01-05 13:29:45 -08:00
parent e5dc04764c
commit bf06506f92
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -390,14 +390,20 @@ identifiers are declared / referenced in which places."
(parsed ast lexical) (parsed ast lexical)
;; This is bad; we have to mutate fennel.macro-path to use fennel's native macro loader ;; This is bad; we have to mutate fennel.macro-path to use fennel's native macro loader
(let [old-macro-path fennel.macro-path] (let [old-macro-path fennel.macro-path
print* _G.print]
(when ?root-uri (when ?root-uri
(set fennel.macro-path (set fennel.macro-path
(searcher.add-workspaces-to-path macro-path [?root-uri]))) (searcher.add-workspaces-to-path macro-path [?root-uri])))
;; don't allow macros to print during compilation
(set _G.print #nil)
;; compile ;; compile
(each [_i form (ipairs (if macro-file? (ast->macro-ast ast) ast))] (each [_i form (ipairs (if macro-file? (ast->macro-ast ast) ast))]
(filter-errors :compiler (xpcall #(fennel.compile form opts) fennel.traceback))) (filter-errors :compiler (xpcall #(fennel.compile form opts)
fennel.traceback)))
(set _G.print print*)
(when ?root-uri (when ?root-uri
(set fennel.macro-path old-macro-path))) (set fennel.macro-path old-macro-path)))