Force location information in messages

gambit · Oct 29, 2023 · 8b18ab6 · 8b18ab6
1 parent 79e5c51
commit 8b18ab6
Showing 1 changed file with 6 additions and 4 deletions.
diff --git a/lib/_repl.scm b/lib/_repl.scm
@@ -3959,10 +3959,12 @@
     (##display-situation
      (##exception->kind exc)
      (##exception->procedure exc cont)
-     (and need-display-locat?
-          (##not source-port)
-          (##fx<= detail-level 0)
-          locat)
+     (if #t ;; force location information
+         locat
+         (and need-display-locat?
+              (##not source-port)
+              (##fx<= detail-level 0)
+              locat))
      (##not pinpointed-locat?)
      port)