From e425895a315d65ff9ca1e2d7911c2fd21d49fe5e Mon Sep 17 00:00:00 2001
From: Peter Mikkelsen <petermikkelsen10@gmail.com>
Date: Mon, 9 May 2022 18:59:23 +0000
Subject: =?UTF-8?q?Fix=20some=20nasty=20bugs=20with=20empty=20lines=20in?=
 =?UTF-8?q?=20dfns,=20and=20with=20stranding=20of=20=E2=8D=BA=20and=20?=
 =?UTF-8?q?=E2=8D=B5.?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 eval.c | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'eval.c')

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;
 }
 
-- 
cgit v1.2.3