EFUNs: Improved type for `+().

Fixes some of #10040.

EFUNs: Improved type for `+().
Fixes some of #10040.
0d9e6fd3 · Henrik (Grubba) Grubbström · 0a3d9f0b · 0d9e6fd3
Commit 0d9e6fd3 authored Jul 19, 2020 by Henrik (Grubba) Grubbström
Hide whitespace changes
Inline Side-by-side

Showing with 3 additions and 2 deletions

src/operators.c src/operators.c +3 -2

No files found.
--- a/src/operators.c
+++ b/src/operators.c
@@ -5771,8 +5771,9 @@ void init_operators(void)
  add_efun2("`>=",f_ge,CMP_TYPE,OPT_TRY_OPTIMIZE,0,generate_comparison);

  ADD_EFUN2("`+",f_add,
-	    tOr7(tIfnot(tFuncV(tNone,tNot(tOr(tObj,tMix)),tMix),
-			tFuncV(tNone,tMix,tMix)),
+	    tOr7(tIfnot(tFuncV(tNone,tNot(tObj),tMix),
+			tOr(tFuncArg(tSetvar(2,tObj), tFindLFun(tVar(2), "`+")),
+			    tFuncV(tNot(tObj), tMix, tMix))),
 		 tOr3(tFuncV(tIntPos,tIntPos,tIntPos),
 		      tFuncV(tIntNeg,tIntNeg,tIntNeg),
 		      tIfnot(tFuncV(tNone, tNot(tIntNeg), tMix),