mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-15 05:43:19 -08:00
Code Issues Projects Releases Packages Wiki Activity

Fixed typo

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2010-10-19 22:51:14 +02:00
parent 5a9989288c
commit e18fdb426a
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/c/reader/parse_number.d
View file

@ -152,7 +152,7 @@ ecl_parse_number(cl_object str, cl_index start, cl_index end,
if (sign < 0) _ecl_big_complement(num, num);
num = _ecl_big_register_normalize(num);
c = ecl_char(str, ++i);
if (ecl_digit_char(c, radix) < 0)
if (ecl_digitp(c, radix) < 0)
goto NOT_A_NUMBER;
den = ecl_parse_integer(str, i, end, ep, radix);
if (den == OBJNULL || (*ep < end)) {