diff --git a/src/Visp.Compiler/Transforms/SyntaxMacroExpander.fs b/src/Visp.Compiler/Transforms/SyntaxMacroExpander.fs index 970a3aa..c67f3c5 100644 --- a/src/Visp.Compiler/Transforms/SyntaxMacroExpander.fs +++ b/src/Visp.Compiler/Transforms/SyntaxMacroExpander.fs @@ -566,12 +566,12 @@ let tokensToFunc (tokens: ResizeArray) (range: range) func = try func getTokens lexbuf with :? ParseHelpers.SyntaxError as syn -> - printfn "tokens:" + eprintfn "tokens:" for tok in tokens do - printf "%A " tok + eprintf "%A " tok - printfn "" + eprintfn "" LexHelpers.outputSyntaxError syn reraise () diff --git a/src/Visp.LanguageServer/LanguageServer.fs b/src/Visp.LanguageServer/LanguageServer.fs index 8922e7c..16af651 100644 --- a/src/Visp.LanguageServer/LanguageServer.fs +++ b/src/Visp.LanguageServer/LanguageServer.fs @@ -454,13 +454,15 @@ type VispDocumentItem = | Some(it) -> it | None -> [||] - member this.Reset() = () member this.Parse() = try eprintfn "Parsing %s" (this.Uri.ToString()) - let file = Core.CoreParser.parseString (this.Text) (this.Uri.ToString()) + + let file = + Core.CoreParser.parseString (this.Text) (this.Uri.ToString()) + |> Transforms.Helpers.transformParsedFile Core.CoreParser.expandExpr let syms = ResizeArray()