From 7dd6ddfc71285697f9dfc54374d999b8c02a1933 Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Thu, 23 Jul 2020 12:44:12 -0400
Subject: [PATCH] Make error messages with location info consistent

---
 scheme/read.sld | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/scheme/read.sld b/scheme/read.sld
index 32a58722..6bee710c 100644
--- a/scheme/read.sld
+++ b/scheme/read.sld
@@ -122,11 +122,12 @@
     Cyc_check_str(data, msg);
     p = ((port_type *)port);
     if (Cyc_is_string(filename) == boolean_t) {
-      snprintf(buf, 1023, \"(%s line %d, column %d): %s\", 
-             string_str(filename), p->line_num, p->col_num, 
+      snprintf(buf, 1023, \"at line %d, column %d of %s: %s\", 
+             p->line_num, p->col_num, 
+             string_str(filename), 
              string_str(msg));
     } else {
-      snprintf(buf, 1023, \"(line %d, column %d): %s\", 
+      snprintf(buf, 1023, \"at line %d, column %d: %s\", 
              p->line_num, p->col_num, string_str(msg));
     }
     Cyc_rt_raise_msg(data, buf);")