Fix some nasty bugs with empty lines in dfns, and with stranding of ⍺ and ⍵.

1 files changed, 2 insertions, 0 deletions

diff --git a/eval.c b/eval.c
index 3174cd4..cfe5854 100644
--- a/eval.c
+++ b/eval.c
@@ -202,6 +202,7 @@ monadfun(Datum *left, Datum *right)
 {
 	traceprint("Monadic function application\n");
 	Datum *result = allocdatum(ArrayTag, 0);
+	SetStrand(right->array, 0);
 	result->array = runfunc(left->func, left->func.left, right->array);
 	return result;
 }
@@ -218,6 +219,7 @@ dyadfun(Datum *left, Datum *right)
 		result->func.code = right->hybrid;
 	}
 	result->func.left = fnSame(left->array);
+	SetStrand(result->func.left, 0);
 	return result;
 }