bug in scanning numbers

This commit is contained in:
Vítor Santos Costa 2016-02-20 01:45:55 +00:00
parent eec32e698a
commit 88df20efca

View File

@ -1133,7 +1133,7 @@ Term Yap_scan_num(StreamDesc *inp) {
}
TokEntry *tokptr = (TokEntry *)AllocScannerMemory(sizeof(TokEntry));
tokptr->TokPos = GetCurInpPos(inp);
ch = getchr(inp);
while((ch = getchr(inp)) == BS);
if (ch == '-') {
sign = -1;
ch = getchr(inp);