From c461152e394a2181539e4649989c07915fb7e777 Mon Sep 17 00:00:00 2001
From: Danny Yoo <dyoo@cs.wpi.edu>
Date: Sat, 2 Apr 2011 01:01:45 -0400
Subject: [PATCH] fixing test case

---
 test-simulator.rkt | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/test-simulator.rkt b/test-simulator.rkt
index b697249..2a7b415 100644
--- a/test-simulator.rkt
+++ b/test-simulator.rkt
@@ -173,8 +173,8 @@
                         baz
                         ))])
   (test (machine-control (run m))
-        (list (make-frame 'bar #f)
-              (make-frame 'foo #f))))
+        (list (make-CallFrame 'bar #f)
+              (make-CallFrame 'foo #f))))
 
 
 
@@ -188,7 +188,7 @@
                         ,(make-PopControlFrame)
                         ))])
   (test (machine-control (run m))
-        (list (make-frame 'foo #f))))
+        (list (make-CallFrame 'foo #f))))
 
 (let ([m (new-machine `(,(make-AssignImmediateStatement 'proc (make-Const #f))
                         foo