Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-05-21 14:49:18 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

fixing error checks on first digit for numbers with #r prefix (issue #27)

Browse source
This commit is contained in:
Alex Shinn 2010-01-20 21:00:37 +09:00
parent ad1be9cbcd
commit add39db40b
1 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
sexp.c
View file

@ -1328,12 +1328,12 @@ sexp sexp_read_number(sexp ctx, sexp in, int base) {
int c, digit, negativep = 0; int c, digit, negativep = 0;
c = sexp_read_char(ctx, in); c = sexp_read_char(ctx, in);
if (c == '-') if (c == '-') {
negativep = 1; negativep = 1;
else if (isdigit(c)) c = sexp_read_char(ctx, in);
res = digit_value(c); }
for (c=sexp_read_char(ctx, in); isxdigit(c); c=sexp_read_char(ctx, in)) { for ( ; isxdigit(c); c=sexp_read_char(ctx, in)) {
digit = digit_value(c); digit = digit_value(c);
if ((digit < 0) || (digit >= base)) if ((digit < 0) || (digit >= base))
break; break;