Exception context: use stx-source (#928)

More robust than AST-source
mighty-gerbils · Sep 25, 2023 · a44f09c · a44f09c
1 parent 2f61000
commit a44f09c
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/std/error.ss b/src/std/error.ss
@@ -83,8 +83,8 @@
     ((_ here)
      (with-syntax ((where
                     (cond
-                     ((or (AST-source #'here)
-                          (AST-source stx))
+                     ((or (stx-source #'here)
+                          (stx-source stx))
                       => (lambda (locat)
                            (call-with-output-string "" (cut ##display-locat locat #t <>))))
                      (else