Implement ⎕DIV for allowing division by zero to result in 0 if needed

1 files changed, 3 insertions, 2 deletions

diff --git a/apl9.h b/apl9.h
index dc38112..12bfc03 100644
--- a/apl9.h
+++ b/apl9.h
@@ -135,13 +135,14 @@ struct Symbol
 	Rune *name;
 	Datum value;
 	Datum *(*getfn)(void);
-	int (*setfn)(Datum);
+	void (*setfn)(Datum);
 };
 
 struct Symtab
 {
 	int nsyms;
 	int io; /* index origin */
+	int div; /* division method */
 	Symbol **syms;
 };
 
@@ -155,7 +156,7 @@ struct QuadnameDef
 	Rune *name;
 	datumTag tag;
 	Datum *(*get)(void);
-	int (*set)(Datum);
+	void (*set)(Datum);
 	fnmonad monadfn;
 	fndyad dyadfn;
 	opmonad monadop;