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) [(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)))] (assemble-oparg (SetFrameCallee!-proc op)))]
[(SpliceListIntoStack!? op) [(SpliceListIntoStack!? op)

2
js-assembler/assemble.rkt
View File

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