Chain the symbol tables, not the dfn frames

1 files changed, 2 insertions, 0 deletions

diff --git a/eval.c b/eval.c
index cd9b95a..9df4f4a 100644
--- a/eval.c
+++ b/eval.c
@@ -362,6 +362,8 @@ monadop(Datum *left, Datum *right)
 	incdatumref(left);
 	result->func.left = nil;
 	result->func.scope = right->operator.scope;
+	if(result->func.scope)
+		result->func.scope->refs++;
 	return result;
 }