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

making sure closure variable capture is doing something reasonable

Browse Source
This commit is contained in:
Danny Yoo 2011-03-09 15:41:11 -05:00
parent f4b6dd8805
commit 094da406fe
1 changed files with 18 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
test-assemble.rkt
View File

@ -133,3 +133,21 @@
(make-AssignPrimOpStatement 'val (make-MakeCompiledProcedure 'afterLambda 0 '()))) (make-AssignPrimOpStatement 'val (make-MakeCompiledProcedure 'afterLambda 0 '())))
"MACHINE.val.displayName") "MACHINE.val.displayName")
"afterLambda") "afterLambda")
;; A do-nothing closure with a few values
(test (E-many (list (make-GotoStatement (make-Label 'afterLambda))
'closureStart
(make-GotoStatement (make-Label 'afterLambda))
'afterLambda
(make-PushEnvironment 2)
(make-AssignImmediateStatement (make-EnvLexicalReference 0)
(make-Const "hello"))
(make-AssignImmediateStatement (make-EnvLexicalReference 1)
(make-Const "world"))
(make-AssignPrimOpStatement 'val (make-MakeCompiledProcedure 'afterLambda 0
(list (make-EnvLexicalReference 0)
(make-EnvLexicalReference 1)))))
"MACHINE.val.closedVals[0] + ',' + MACHINE.val.closedVals[1]")
"hello,world")