From 16c5e6a796705aa108f30ebb7c121c3d58bb11d5 Mon Sep 17 00:00:00 2001 From: Danny Yoo Date: Mon, 21 Feb 2011 15:50:32 -0500 Subject: [PATCH] fixed test case and code --- find-toplevel-variables.rkt | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/find-toplevel-variables.rkt b/find-toplevel-variables.rkt index 0e146a4..31b3878 100644 --- a/find-toplevel-variables.rkt +++ b/find-toplevel-variables.rkt @@ -25,7 +25,8 @@ (loop (Assign-value exp))] [(Def? exp) - (loop (Def-value exp))] + (cons (Def-variable exp) + (loop (Def-value exp)))] [(Branch? exp) (append (loop (Branch-predicate exp))