Actually pass ⍶ and ⍹ unchanged with ∆

1 files changed, 6 insertions, 6 deletions

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;