From ba6e44f110c5d90c586d787df202a8c9b1e2f095 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Fri, 29 Jul 2005 13:02:45 +0000 Subject: [PATCH] fix reported column for syntax-exception srcloc svn: r495 --- src/mzscheme/src/error.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/mzscheme/src/error.c b/src/mzscheme/src/error.c index 14f1c86480..d9fb8302d7 100644 --- a/src/mzscheme/src/error.c +++ b/src/mzscheme/src/error.c @@ -2310,7 +2310,7 @@ static Scheme_Object *extract_syntax_locations(int argc, Scheme_Object **argv) loc = ((Scheme_Stx *)stx)->srcloc; loco = scheme_make_location(loc->src ? loc->src : scheme_false, (loc->line >= 0) ? scheme_make_integer(loc->line) : scheme_false, - (loc->col >= 0) ? scheme_make_integer(loc->col) : scheme_false, + (loc->col >= 0) ? scheme_make_integer(loc->col-1) : scheme_false, (loc->pos >= 0) ? scheme_make_integer(loc->pos) : scheme_false, (loc->span >= 0) ? scheme_make_integer(loc->span) : scheme_false); p = scheme_make_pair(loco, scheme_null);