use new YAP flags

2015-06-18 00:18:28 +01:00
parent ff9051349b
commit adb8ff064d
2 changed files with 3 additions and 3 deletions
--- a/C/arith1.c
+++ b/C/arith1.c
@@ -841,7 +841,7 @@ eval1(Int fi, Term t USES_REGS) {
  case op_ffracp:
    switch (ETypeOfTerm(t)) {
    case long_int_e:
-      if (yap_flags[LANGUAGE_MODE_FLAG] == 1) { /* iso */
+      if (isoLanguageFlag()) { /* iso */
 	return Yap_ArithError(TYPE_ERROR_FLOAT, t, "X is float_fractional_part(%f)", IntegerOfTerm(t));
      } else {
 	RFLOAT(0.0);