fixed test case and code

2011-02-21 15:50:32 -05:00 · 2011-02-21 15:50:32 -05:00 · 16c5e6a796
commit 16c5e6a796
parent 6391f614d9
1 changed files with 2 additions and 1 deletions
--- 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))