Implement ⍺⍵⍶⍹ as get-set variables, which may make it easier to do TCO later.

1 files changed, 6 insertions, 2 deletions

diff --git a/apl9.h b/apl9.h
index 092c8ce..b19c686 100644
--- a/apl9.h
+++ b/apl9.h
@@ -183,6 +183,10 @@ struct DfnFrame
 {
 	Rune *code;
 	Symtab *symtab;
+	Datum *left;
+	Array *right;
+	Datum *lefto;
+	Datum *righto;
 	DfnFrame *prev;
 };
 
@@ -226,7 +230,7 @@ Datum *eval(Statement *, int);
 Symbol *getsym(Rune *, int);
 void initsymtab(void);
 DfnFrame *getcurrentdfn(void);
-DfnFrame *pushdfnframe(Rune *);
+DfnFrame *pushdfnframe(Rune *, Datum *, Datum *, Array *, Array *);
 void popdfnframe(void);
 vlong globalIO(void);
 void globalIOset(vlong);
@@ -243,7 +247,7 @@ void incref(Array *);
 
 /* functions.c */
 Array *runfunc(Function, Array *,Array *);
-Array *rundfn(Rune *, Array *, Array *);
+Array *rundfn(Rune *, Datum *, Datum *, Array *, Array *);
 Array *runtrain(Function *, int, Array *, Array *, Array *);
 
 /* quadnames.c */