From 580b7dd6b3590134e7be96ebf758a956926130a9 Mon Sep 17 00:00:00 2001 From: Peter Mikkelsen Date: Tue, 25 Jan 2022 16:53:54 +0000 Subject: =?UTF-8?q?Actually=20pass=20=E2=8D=B6=20and=20=E2=8D=B9=20unchang?= =?UTF-8?q?ed=20with=20=E2=88=86?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- functions.c | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) (limited to 'functions.c') diff --git a/functions.c b/functions.c index 34f5db1..7952565 100644 --- a/functions.c +++ b/functions.c @@ -59,7 +59,7 @@ fnmonad monadfunctiondefs[] = { fnTranspose, /* ⍉ */ 0, /* ⍎ */ 0, /* ⍕ */ - fnSelfRef1, /* ∇ */ + fnSelfReference1, /* ∇ */ }; fndyad dyadfunctiondefs[] = { @@ -115,7 +115,7 @@ fndyad dyadfunctiondefs[] = { 0, /* ⍉ */ 0, /* ⍎ */ 0, /* ⍕ */ - fnSelfRef2, /* ∇ */ + fnSelfReference2, /* ∇ */ }; vlong gcd_int(vlong, vlong); @@ -705,11 +705,11 @@ fnTranspose(Array *right) } Array * -fnSelfRef1(Array *right) +fnSelfReference1(Array *right) { DfnFrame *dfn = getcurrentdfn(); if(dfn) - return rundfn(dfn->code, nil, nil, nil, right); + return rundfn(dfn->code, dfn->lefto, dfn->righto, nil, right); else{ throwerror(nil, ESyntax); return nil; @@ -1246,11 +1246,11 @@ fnReshape(Array *left, Array *right) } Array * -fnSelfRef2(Array *left, Array *right) +fnSelfReference2(Array *left, Array *right) { DfnFrame *dfn = getcurrentdfn(); if(dfn) - return rundfn(dfn->code, nil, nil, left, right); + return rundfn(dfn->code, dfn->lefto, dfn->righto, left, right); else{ throwerror(nil, ESyntax); return nil; -- cgit v1.2.3