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

skip1??

Browse Source
This commit is contained in:
Vitor Santos Costa 2017-10-27 13:56:01 +01:00
parent 2e6684b995
commit 407815e09a
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
os/charsio.c
View File

@ -1115,8 +1115,7 @@ static Int peek_char(USES_REGS1) {
return false; return false;
} }
sinp[off] = '\0'; sinp[off] = '\0';
return Yap_unify_constant( return Yap_unify_constant(ARG2, MkAtomTerm(Yap_ULookupAtom(sinp)));
ARG2, MkAtomTerm(Yap_ULookupAtom(sinp)));
} }
/** @pred peek_char( - _C_) is iso /** @pred peek_char( - _C_) is iso
@ -1216,7 +1215,7 @@ void Yap_InitCharsio(void) {
Yap_InitCPred("peek_char", 1, peek_char_1, SafePredFlag | SyncPredFlag); Yap_InitCPred("peek_char", 1, peek_char_1, SafePredFlag | SyncPredFlag);
Yap_InitCPred("peek_byte", 1, peek_byte_1, SafePredFlag | SyncPredFlag); Yap_InitCPred("peek_byte", 1, peek_byte_1, SafePredFlag | SyncPredFlag);
Yap_InitCPred("skip", 2, skip, SafePredFlag | SyncPredFlag); Yap_InitCPred("skip", 2, skip, SafePredFlag | SyncPredFlag);
Yap_InitCPred("skip1", 1, skip_1, SafePredFlag | SyncPredFlag); Yap_InitCPred("skip", 1, skip_1, SafePredFlag | SyncPredFlag);
Yap_InitCPred("tab", 2, tab, SafePredFlag | SyncPredFlag); Yap_InitCPred("tab", 2, tab, SafePredFlag | SyncPredFlag);
Yap_InitCPred("tab", 1, tab_1, SafePredFlag | SyncPredFlag); Yap_InitCPred("tab", 1, tab_1, SafePredFlag | SyncPredFlag);
} }