fix flags
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@2152 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
parent
a6c3af96be
commit
6fe55c580f
10
C/stdpreds.c
10
C/stdpreds.c
@ -11,8 +11,11 @@
|
|||||||
* File: stdpreds.c *
|
* File: stdpreds.c *
|
||||||
* comments: General-purpose C implemented system predicates *
|
* comments: General-purpose C implemented system predicates *
|
||||||
* *
|
* *
|
||||||
* Last rev: $Date: 2008-02-15 12:41:33 $,$Author: vsc $ *
|
* Last rev: $Date: 2008-03-15 12:19:33 $,$Author: vsc $ *
|
||||||
* $Log: not supported by cvs2svn $
|
* $Log: not supported by cvs2svn $
|
||||||
|
* Revision 1.128 2008/02/15 12:41:33 vsc
|
||||||
|
* more fixes to modules
|
||||||
|
*
|
||||||
* Revision 1.127 2008/02/13 10:15:35 vsc
|
* Revision 1.127 2008/02/13 10:15:35 vsc
|
||||||
* fix some bugs from yesterday plus improve support for modules in
|
* fix some bugs from yesterday plus improve support for modules in
|
||||||
* operators.
|
* operators.
|
||||||
@ -3637,6 +3640,11 @@ p_set_yap_flags(void)
|
|||||||
return(FALSE);
|
return(FALSE);
|
||||||
yap_flags[VARS_CAN_HAVE_QUOTE_FLAG] = value;
|
yap_flags[VARS_CAN_HAVE_QUOTE_FLAG] = value;
|
||||||
break;
|
break;
|
||||||
|
case QUIET_MODE_FLAG:
|
||||||
|
if (value != 0 && value != 1)
|
||||||
|
return(FALSE);
|
||||||
|
yap_flags[VARS_CAN_HAVE_QUOTE_FLAG] = value;
|
||||||
|
break;
|
||||||
default:
|
default:
|
||||||
return(FALSE);
|
return(FALSE);
|
||||||
}
|
}
|
||||||
|
Reference in New Issue
Block a user