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

adjust Redex example after bytecode-structure change

Browse Source
This commit is contained in:
Matthew Flatt 2011-05-03 08:53:49 -06:00
parent 2ada6d0e89
commit 6f1aa7bc00
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/redex/examples/racket-machine/model-impl.rkt
View File

@ -63,7 +63,7 @@
`(branch ,(recur c) ,(recur t) ,(recur e))] `(branch ,(recur c) ,(recur t) ,(recur e))]
[(let-rec rs b) [(let-rec rs b)
`(let-rec ,(map recur rs) ,(recur b))] `(let-rec ,(map recur rs) ,(recur b))]
[(lam _ _ _ τs #f ns `(val/ref ...) _ b) [(lam _ _ _ τs #f ns `(val/ref ...) _ _ b)
`(lam ,τs ,(vector->list ns) ,(recur b))] `(lam ,τs ,(vector->list ns) ,(recur b))]
[(closure l _) [(closure l _)
(define (model-rep) (define (model-rep)
@ -122,7 +122,7 @@
[(let-rec rs b) [(let-rec rs b)
(for-each recur rs) (for-each recur rs)
(recur b)] (recur b)]
[(lam _ _ _ _ _ _ _ _ b) [(lam _ _ _ _ _ _ _ _ _ b)
(recur b)] (recur b)]
[(closure l _) [(closure l _)
(recur l)] (recur l)]