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

fixing a bug with boxenv

Browse Source
This commit is contained in:
Danny Yoo 2011-04-01 23:05:00 -04:00
parent 49ff8c0aa1
commit f26b23d821
2 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compile.rkt
View File

@ -89,7 +89,7 @@
[(InstallValue? exp) [(InstallValue? exp)
(loop (InstallValue-body exp) cenv)] (loop (InstallValue-body exp) cenv)]
[(BoxEnv? exp) [(BoxEnv? exp)
'()] (loop (BoxEnv-body exp) cenv)]
[(LetRec? exp) [(LetRec? exp)
(let ([new-cenv (append (map (lambda: ([p : Lam]) (let ([new-cenv (append (map (lambda: ([p : Lam])
(extract-static-knowledge (extract-static-knowledge

8
test-compiler.rkt
View File

@ -790,6 +790,14 @@
#:control-limit 3) #:control-limit 3)
(test '(begin (define counter
(let ([x 0])
(lambda ()
(set! x (add1 x))
x)))
(list (counter) (counter) (counter)))
'(1 2 3))