allow spaces in numerica atoms/strings.

This commit is contained in:
Vitor Santos Costa 2011-01-20 12:03:38 -06:00
parent 76b3aec555
commit 9d1ae2f96a

View File

@ -717,6 +717,9 @@ Yap_scan_num(int (*Nxtch) (int))
return TermNil;
}
ch = Nxtch(-1);
while (chtype(ch) == BS) {
ch = Nxtch(-1);
}
if (ch == '-') {
sign = -1;
ch = Nxtch(-1);