From 26ee5089659da12e3c060edfefd056e2196b4363 Mon Sep 17 00:00:00 2001
From: Peter Mikkelsen <petermikkelsen10@gmail.com>
Date: Sat, 22 Jan 2022 12:37:48 +0000
Subject: Implement scalar functions via a macro

---
 array.c | 10 ++++++++++
 1 file changed, 10 insertions(+)

(limited to 'array.c')

diff --git a/array.c b/array.c
index 2e0e71e..bf75a1b 100644
--- a/array.c
+++ b/array.c
@@ -138,6 +138,16 @@ commontype(Array *a, Array *b, Array **aa, Array **bb, int forcefloat)
 	}else if(a->type == AtypeInt && b->type == AtypeFloat){
 		*aa = inttofloatarray(a);
 		*bb = fnSame(b);
+	}else if(a->type == AtypeArray && b->type != AtypeArray){
+		*aa = fnSame(a);
+		*bb = allocarray(AtypeArray, 0, 1);
+		(*bb)->arraydata[0] = b;
+		incref(b);
+	}else if(a->type != AtypeArray && b->type == AtypeArray){
+		*aa = allocarray(AtypeArray, 0, 1);
+		(*aa)->arraydata[0] = a;
+		incref(a);
+		*bb = fnSame(b);
 	}else
 		return 0;
 	return 1;
-- 
cgit v1.2.3