suzanne.soy/whalesong
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fixing test case

Browse Source
This commit is contained in:
Danny Yoo 2011-04-02 01:01:45 -04:00
parent cfdbbfaeaa
commit c461152e39
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
test-simulator.rkt
View File

@ -173,8 +173,8 @@
baz baz
))]) ))])
(test (machine-control (run m)) (test (machine-control (run m))
(list (make-frame 'bar #f) (list (make-CallFrame 'bar #f)
(make-frame 'foo #f)))) (make-CallFrame 'foo #f))))
@ -188,7 +188,7 @@
,(make-PopControlFrame) ,(make-PopControlFrame)
))]) ))])
(test (machine-control (run m)) (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)) (let ([m (new-machine `(,(make-AssignImmediateStatement 'proc (make-Const #f))
foo foo