fixed type ret vals bug!

1 files changed, 7 insertions, 0 deletions

diff --git a/location.c b/location.c
index 48fd269..d3ad5b8 100644
--- a/location.c
+++ b/location.c
@@ -2,3 +2,10 @@ static bool location_after(Location a, Location b) { /* a is after b? */
 	assert(a.ctx == b.ctx);
 	return a.code > b.code;
 }
+
+static void fprint_location(FILE *out, Location location) {
+	char *newline = strchr(location.code, '\n');
+	if (newline) *newline = 0;
+	fprintf(out, "Line %ld: %s\n", (long)location.line, location.code);
+	if (newline) *newline = '\n';
+}