allow spaces in numerica atoms/strings.
This commit is contained in:
parent
76b3aec555
commit
9d1ae2f96a
@ -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);
|
||||
|
Reference in New Issue
Block a user