fix regression tests

2015-08-07 16:57:53 -05:00
parent dbdae6a930
commit b164f53191
102 changed files with 4996 additions and 1214 deletions
--- a/os/streams.c
+++ b/os/streams.c
@@ -632,8 +632,6 @@ cont_stream_property (USES_REGS1)
      ++i;
      if (i == MaxStreams)
        cut_fail();
-      else
-        EXTRA_CBACK_ARG (2, 1) = MkIntTerm (i+1);
    }
    LOCK(GLOBAL_Stream[i].streamlock);
    UNLOCK(GLOBAL_StreamDescLock);
@@ -645,12 +643,16 @@ cont_stream_property (USES_REGS1)
  if (rc) {
        if (det)
          cut_succeed();
-        else
-          return true;
+        else {
+          EXTRA_CBACK_ARG (2, 1) = MkIntTerm (i+1);
+        return true;
+        }
      } else if (det)
        cut_fail();
-      else
+      else {
+        EXTRA_CBACK_ARG (2, 1) = MkIntTerm (i+1);
        return false;
+      }
 }

 static Int