From d4830e29da794cdb5704109343dbe4d0f0d97105 Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Thu, 1 Mar 2012 16:35:20 -0800 Subject: * match.c (sem_error, file_err): Bugfix: pull text formatted source location using source_loc_str rather than raw object using source_loc. --- ChangeLog | 5 +++++ match.c | 4 ++-- 2 files changed, 7 insertions(+), 2 deletions(-) diff --git a/ChangeLog b/ChangeLog index 18d1e889..0abff845 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,8 @@ +2012-03-01 Kaz Kylheku + + * match.c (sem_error, file_err): Bugfix: pull text formatted source + location using source_loc_str rather than raw object using source_loc. + 2012-03-01 Kaz Kylheku * match.c (v_load): Fixed broken functionality. Failing to evaluate 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); -- cgit v1.2.3