From 63c5e49a32fb7bdb98c0d34f2d75ee2621ee4c68 Mon Sep 17 00:00:00 2001 From: Peter Mikkelsen Date: Mon, 24 Jan 2022 00:40:00 +0000 Subject: Fix symbol lookup --- functions.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'functions.c') diff --git a/functions.c b/functions.c index 207daeb..71e99c5 100644 --- a/functions.c +++ b/functions.c @@ -131,14 +131,14 @@ runfunc(Function f, Array *left, Array *right) if(f.type == FunctypeDfn){ pushdfnframe(f.dfn); if(left){ - Symbol *alpha = getsym(L"⍺"); + Symbol *alpha = getsym(L"⍺", 1); alpha->value.tag = ArrayTag; alpha->value.array = left; alpha->undefined = 0; incref(left); } - Symbol *omega = getsym(L"⍵"); + Symbol *omega = getsym(L"⍵", 1); omega->value.tag = ArrayTag; omega->value.array = right; omega->undefined = 0; -- cgit v1.2.3