X-Git-Url: https://ocean-lang.org/code/?p=ocean;a=blobdiff_plain;f=csrc%2Foceani.mdc;fp=csrc%2Foceani.mdc;h=f97652d025ca4c90ef8e183ac45bea0eed41a677;hp=d40a5488f4de9d0755896493b15ba6e05bb5804b;hb=d58f04dc62ec58ed72c00db43b80122fbdfc0925;hpb=37c2482809a970e5c452f4e3f43d9ee8e18fd141

diff --git a/csrc/oceani.mdc b/csrc/oceani.mdc
index d40a548..f97652d 100644
--- a/csrc/oceani.mdc
+++ b/csrc/oceani.mdc
@@ -2096,7 +2096,7 @@ stack.
 			if (v->merged != v)
 				continue;
 			if (!t)
-				continue;
+				continue;	// NOTEST
 			if (v->frame_pos >= 0)
 				continue;
 			while (done && done->scope_end < v->scope_start)
@@ -4605,7 +4605,9 @@ the common header for all reductions to use.
 		struct binode *e;
 
 		for (e = b; e; e = cast(binode, e->right)) {
-			t = propagate_types(e->left, c, perr, NULL, rules);
+			*perr |= *perr_local;
+			*perr_local = 0;
+			t = propagate_types(e->left, c, perr_local, NULL, rules);
 			if ((rules & Rboolok) && (t == Tbool || t == Tnone))
 				t = NULL;
 			if (t == Tnone && e->right)