diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2012-03-01 16:35:20 -0800 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2012-03-01 16:35:20 -0800 |
| commit | d4830e29da794cdb5704109343dbe4d0f0d97105 (patch) | |
| tree | 90d6af4bb39d6f19b6739859087d0225c9fa09ae | |
| parent | c4aa3b20979ba9a6de64ce3b02281437687ce6ba (diff) | |
| download | txr-d4830e29da794cdb5704109343dbe4d0f0d97105.tar.gz txr-d4830e29da794cdb5704109343dbe4d0f0d97105.tar.bz2 txr-d4830e29da794cdb5704109343dbe4d0f0d97105.zip | |
* match.c (sem_error, file_err): Bugfix: pull text formatted source
location using source_loc_str rather than raw object using source_loc.
| -rw-r--r-- | ChangeLog | 5 | ||||
| -rw-r--r-- | match.c | 4 |
2 files changed, 7 insertions, 2 deletions
@@ -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. @@ -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); |