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

oops, forgot to use var here.

Browse Source
This commit is contained in:
Danny Yoo 2013-03-03 16:24:50 -07:00
parent a1f4873ff8
commit 5e0cc5f6ec
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
whalesong/js-assembler/assemble.rkt
View File

@ -218,7 +218,7 @@ EOF
[(= expected 1) [(= expected 1)
'ok] 'ok]
[else [else
(fprintf op "~a=RT.si_context_expected(~a);\n" (fprintf op "var ~a=RT.si_context_expected(~a);\n"
(munge-label-name (make-Label (BasicBlock-name a-basic-block))) (munge-label-name (make-Label (BasicBlock-name a-basic-block)))
expected) expected)
'ok]))] 'ok]))]
@ -226,7 +226,7 @@ EOF
[(block-looks-like-pop-multiple-values-and-continue? a-basic-block) [(block-looks-like-pop-multiple-values-and-continue? a-basic-block)
=> =>
(lambda (target) (lambda (target)
(fprintf op "~a=RT.si_pop_multiple-values-and-continue(~a);" (fprintf op "var ~a=RT.si_pop_multiple-values-and-continue(~a);"
(munge-label-name (make-Label (BasicBlock-name a-basic-block))) (munge-label-name (make-Label (BasicBlock-name a-basic-block)))
target))] target))]
[else [else