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

ismall bugs && docs

Browse Source
This commit is contained in:
Vitor Santos Costa
2018-11-14 09:35:24 +00:00
parent cb5dc1313a
commit 4fed99c0aa
9 changed files with 330 additions and 254 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
C/flags.c
View File

@@ -25,10 +25,12 @@
*/
/**
@{
@defgroup YAPFlags_Impl C-code to handle Prolog flags.
@defgroup YAPFlags C-code to handle Prolog flags.
@ingroup YAPFlags
@{
@brief Low-level code to support flags.
Prolog Flags can be:
@@ -313,7 +315,7 @@ static bool mkprompt(Term inp) {
CACHE_REGS
if (IsVarTerm(inp)) {
return Yap_unify(inp, MkAtomTerm(Yap_LookupAtom(LOCAL_Prompt)));
}
}
if (IsStringTerm(inp)) {
inp = MkStringTerm(RepAtom(AtomOfTerm(inp))->StrOfAE);
}
@@ -1797,10 +1799,6 @@ void Yap_InitFlags(bool bootstrap) {
Yap_InitCPredBack("current_prolog_flag", 2, 1, current_prolog_flag,
cont_yap_flag, 0);
TR = tr0;
/** @pred prolog_flag( ?Flag, - Value)
Obtain the value for a YAP Prolog flag, same as current_prolog_flag/2.
*/
Yap_InitCPredBack("prolog_flag", 3, 1, prolog_flag, cont_yap_flag,
0);
Yap_InitCPredBack("yap_flag", 3, 1, yap_flag, cont_yap_flag, 0);