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

fixed small regression in test-simulator

Browse Source
This commit is contained in:
Danny Yoo 2011-03-09 18:16:25 -05:00
parent 5d691899dd
commit a3cf629321
1 changed files with 9 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
test-simulator.rkt
View File

@ -11,10 +11,13 @@
[(_ actual exp)
(with-syntax ([stx stx])
(syntax/loc #'stx
(let ([results actual])
(unless (equal? actual exp)
(raise-syntax-error #f (format "Expected ~s, got ~s" exp results)
#'stx)))))]))
(begin
(printf "Running ~s ..." (syntax->datum #'stx))
(let ([results actual])
(unless (equal? actual exp)
(raise-syntax-error #f (format "Expected ~s, got ~s" exp results)
#'stx)))
(printf "ok\n\n"))))]))
;; take n steps in evaluating the machine.
@ -416,7 +419,8 @@
,(make-PushEnvironment 2)
,(make-AssignImmediateStatement (make-EnvLexicalReference 0) (make-Const 126389))
,(make-AssignImmediateStatement (make-EnvLexicalReference 1) (make-Const 42))
,(make-AssignPrimOpStatement 'val (make-ApplyPrimitiveProcedure 2))))])
,(make-AssignPrimOpStatement 'val (make-ApplyPrimitiveProcedure 2 'after))
after))])
(test (machine-val (run m))
(+ 126389 42))