changed location of implicit progn

coalton-lang · Jan 9, 2025 · 367b0cb · 367b0cb
1 parent 5b06f4b
commit 367b0cb
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/src/parser/expression.lisp b/src/parser/expression.lisp
@@ -1049,7 +1049,10 @@ Rebound to NIL parsing an anonymous FN.")
      :body (make-node-body
             :nodes nodes
             :last-node (first (last nodes)))
-     :location (form-location source (first forms)))))
+     :location (source:make-location
+                source
+                (cons (source:span-start (cst:source (first forms)))
+                      (source:span-end (cst:source (first (last forms)))))))))
 
 (defun parse-variable (form source)
   (declare (type cst:cst form)