bug in scanning numbers
This commit is contained in:
parent
eec32e698a
commit
88df20efca
@ -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);
|
||||
|
Reference in New Issue
Block a user