diogo/yap-6.3
Archived
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

allow spaces in numerica atoms/strings.

Browse Source
This commit is contained in:
Vitor Santos Costa 2011-01-20 12:03:38 -06:00
parent 76b3aec555
commit 9d1ae2f96a
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
C/scanner.c
View File

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