Add dfn evaluation, and localized ⎕IO

1 files changed, 2 insertions, 1 deletions

diff --git a/symbol.c b/symbol.c
index 6cdbffe..55e3f15 100644
--- a/symbol.c
+++ b/symbol.c
@@ -31,7 +31,8 @@ newsymtab(void)
 
 	Symbol *io = getsym(tab, L"⎕IO");
 	io->value.tag = ArrayTag;
-	io->value.array = mkscalarint(1);
+	io->value.array = mkscalarint(currentsymtab ? globalIO() : 1);
+	io->value.shy = 0;
 	io->undefined = 0;
 
 	return tab;