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

Fixes a bug in the VM model

Browse Source
This commit is contained in:
Casey Klein 2010-06-14 12:53:35 -05:00
parent 02238a7c6d
commit 318ec585bc
2 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
collects/redex/examples/racket-machine/verification-test.rkt
View File

@ -496,6 +496,14 @@
(negate bytecode-ok?) (negate bytecode-ok?)
'(let-void-box 1 (application (case-lam (lam (ref) () (loc-box-noclr 0))) (loc-noclr 1)))) '(let-void-box 1 (application (case-lam (lam (ref) () (loc-box-noclr 0))) (loc-noclr 1))))
(test-predicate
(negate bytecode-ok?)
'(let-one 42
(boxenv 0
(application
(case-lam (lam (ref) () (loc-box 0)))
(loc-box 1)))))
; literals ; literals
(test-predicate bytecode-ok? #t) (test-predicate bytecode-ok? #t)

2
collects/redex/examples/racket-machine/verification.rkt
View File

@ -108,7 +108,7 @@
(verify (lam (τ ...) () e) s n_l b γ η f)] (verify (lam (τ ...) () e) s n_l b γ η f)]
; case-lam ; case-lam
[(verify (case-lam l ...) s n_l b γ η f) [(verify (case-lam (name l (lam (val ...) (n ...) e)) ...) s n_l b γ η f)
(s γ η) (s γ η)
(side-condition (term (AND (verify-lam l s ?) ...)))] (side-condition (term (AND (verify-lam l s ?) ...)))]