X-Git-Url: https://ocean-lang.org/code/?p=ocean;a=blobdiff_plain;f=csrc%2Foceani.mdc;h=c820d39153674dcc75fcb2fa5022e60c2624ffce;hp=1be7c673c010a31c9737fcfb959abc4861afb956;hb=c9827dcb3cb79fe907633b8badd1e5fd918ca388;hpb=8f1b75648081b69f4ff47263faea1843efdca6aa

diff --git a/csrc/oceani.mdc b/csrc/oceani.mdc
index 1be7c67..c820d39 100644
--- a/csrc/oceani.mdc
+++ b/csrc/oceani.mdc
@@ -4503,13 +4503,16 @@ analysis is a bit more interesting at this level.
 			}
 			al = cast(binode, al->right);
 		}
-		v = interp_exec(c, p->right, &vtype);
+		v = interp_exec(c, p, &vtype);
 		free_value(vtype, &v);
 	}
 
 ###### interp binode cases
-	case List:
-	case Func: abort();	// NOTEST
+	case List: abort();	// NOTEST
+
+	case Func:
+		rv = interp_exec(c, b->right, &rvtype);
+		break;
 
 ## And now to test it out.