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

removing spaces

Browse Source
This commit is contained in:
Danny Yoo 2011-09-14 23:02:50 -04:00
parent d4bca31359
commit cb592460f0
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
js-assembler/assemble-perform-statement.rkt
View File

@ -98,7 +98,7 @@
","))]
[(SetFrameCallee!? op)
(format "M.control[M.control.length-1].proc = ~a;"
(format "M.control[M.control.length-1].proc=~a;"
(assemble-oparg (SetFrameCallee!-proc op)))]
[(SpliceListIntoStack!? op)

2
js-assembler/assemble.rkt
View File

@ -533,7 +533,7 @@ EOF
(format "M.e.length-=~a;"
(assemble-oparg (PopEnvironment-n stmt)))]
[else
(format "M.e.splice(M.e.length-(~a +~a),~a);"
(format "M.e.splice(M.e.length-(~a+~a),~a);"
(assemble-oparg (PopEnvironment-skip stmt))
(assemble-oparg (PopEnvironment-n stmt))
(assemble-oparg (PopEnvironment-n stmt)))]))]