summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--ChangeLog5
-rw-r--r--match.c4
2 files changed, 7 insertions, 2 deletions
diff --git a/ChangeLog b/ChangeLog
index 18d1e889..0abff845 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,10 @@
2012-03-01 Kaz Kylheku <kaz@kylheku.com>
+ * 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 <kaz@kylheku.com>
+
* match.c (v_load): Fixed broken functionality. Failing to evaluate
directives following the load and consume input properly.
Check for errors during the parse and throw an exception.
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);