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

1 files changed, 1 insertions, 0 deletions

diff --git a/symbol.c b/symbol.c
index 9b91cd1..d51a730 100644
--- a/symbol.c
+++ b/symbol.c
@@ -31,6 +31,7 @@ newsymtab(void)
 	tab->nsyms = 0;
 	tab->syms = nil;
 	tab->io = currentsymtab ? currentsymtab->io : 1;
+	tab->div = currentsymtab ? currentsymtab->div : 0;
 
 	return tab;
 }