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

contining to do some minor inlining, whitespace removal

Browse Source
This commit is contained in:
Danny Yoo 2011-09-06 16:04:51 -04:00
parent 948afb930c
commit 6774f2ae2b
1 changed files with 22 additions and 29 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -22,14 +22,7 @@
[(CheckClosureArity!? op) [(CheckClosureArity!? op)
(format #<<EOF (format "if(!(MACHINE.proc instanceof RUNTIME.Closure)){RUNTIME.raiseOperatorIsNotClosure(MACHINE,MACHINE.proc);}if(!RUNTIME.isArityMatching(MACHINE.proc.racketArity,~a)){RUNTIME.raiseArityMismatchError(MACHINE, MACHINE.proc,~a);}"
if (! (MACHINE.proc instanceof RUNTIME.Closure)) {
RUNTIME.raiseOperatorIsNotClosure(MACHINE, MACHINE.proc);
}
if (! RUNTIME.isArityMatching(MACHINE.proc.racketArity, ~a)) {
RUNTIME.raiseArityMismatchError(MACHINE, MACHINE.proc, ~a);
}
EOF
(assemble-oparg (CheckClosureArity!-num-args op)) (assemble-oparg (CheckClosureArity!-num-args op))
(assemble-oparg (CheckClosureArity!-num-args op)))] (assemble-oparg (CheckClosureArity!-num-args op)))]
@ -102,8 +95,8 @@ EOF
(assemble-oparg tag)])))] (assemble-oparg tag)])))]
[(FixClosureShellMap!? op) [(FixClosureShellMap!? op)
(format "MACHINE.env[MACHINE.env.length - 1 - ~a].closedVals = [~a];" (format "MACHINE.env[MACHINE.env.length-~a].closedVals=[~a];"
(FixClosureShellMap!-depth op) (add1 (FixClosureShellMap!-depth op))
(string-join (map (string-join (map
assemble-env-reference/closure-capture assemble-env-reference/closure-capture
;; The closure values are in reverse order ;; The closure values are in reverse order