suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix reported column for syntax-exception srcloc

Browse Source 
svn: r495
This commit is contained in:
Matthew Flatt 2005-07-29 13:02:45 +00:00
parent 585e73b663
commit ba6e44f110
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/mzscheme/src/error.c
View File

@ -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);