* match.c (sem_error, file_err): Bugfix: pull text formatted source

location using source_loc_str rather than raw object using source_loc.

1 files changed, 2 insertions, 2 deletions

diff --git a/match.c b/match.c
index fc9746a0..7b22b51d 100644
--- a/match.c
+++ b/match.c
@@ -84,7 +84,7 @@ static void sem_error(val form, val fmt, ...)
 
   va_start (vl, fmt);
   if (form)
-    format(stream, lit("(~a) "), source_loc(form), nao);
+    format(stream, lit("(~a) "), source_loc_str(form), nao);
   (void) vformat(stream, fmt, vl);
   va_end (vl);
 
@@ -99,7 +99,7 @@ static void file_err(val form, val fmt, ...)
 
   va_start (vl, fmt);
   if (form)
-    format(stream, lit("(~a) "), source_loc(form), nao);
+    format(stream, lit("(~a) "), source_loc_str(form), nao);
   (void) vformat(stream, fmt, vl);
   va_end (vl);