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

Fix confusing indentation

Browse Source
This commit is contained in:
Gustavo Massaccesi 2016-06-11 12:55:43 -03:00
parent edcb1e5479
commit 9978696991
1 changed files with 4 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
racket/src/racket/src/read.c
View File

@ -3114,10 +3114,8 @@ static Scheme_Object *read_flonum(Scheme_Object *port,
n = read_number_literal(port, stxsrc, 1, 0, ht, indentation, params, comment_mode); n = read_number_literal(port, stxsrc, 1, 0, ht, indentation, params, comment_mode);
if (SCHEME_DBLP(n)) if (SCHEME_DBLP(n))
return n; return n;
else {
scheme_tell_all(port, &line2, &col2, &pos2); scheme_tell_all(port, &line2, &col2, &pos2);
scheme_read_err(port, stxsrc, line, col, pos, pos2-pos, -1, indentation, "read: expected flonum, got %V", n); scheme_read_err(port, stxsrc, line, col, pos, pos2-pos, -1, indentation, "read: expected flonum, got %V", n);
}
return NULL; return NULL;
} }
@ -3135,7 +3133,6 @@ static Scheme_Object *read_fixnum(Scheme_Object *port,
n = read_number_literal(port, stxsrc, 0, 1, ht, indentation, params, comment_mode); n = read_number_literal(port, stxsrc, 0, 1, ht, indentation, params, comment_mode);
if (SCHEME_INTP(n)) if (SCHEME_INTP(n))
return n; return n;
else
scheme_tell_all(port, &line2, &col2, &pos2); scheme_tell_all(port, &line2, &col2, &pos2);
scheme_read_err(port, stxsrc, line, col, pos, pos2-pos, -1, indentation, "read: expected fixnum, got %V", n); scheme_read_err(port, stxsrc, line, col, pos, pos2-pos, -1, indentation, "read: expected fixnum, got %V", n);
return NULL; return NULL;