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

continuing to grab at low-hanging fruit.

Browse Source
This commit is contained in:
Danny Yoo 2011-09-14 22:14:29 -04:00
parent 8506b70253
commit 3d53fe7699
4 changed files with 6 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/compiler.rkt
View File

@ -1423,7 +1423,7 @@
;; Compiled branch
(make-PerformStatement (make-CheckClosureAndArity! (make-Reg 'argcount)))
(make-PerformStatement (make-CheckClosureAndArity!))
(compile-compiled-procedure-application cenv
number-of-arguments
'dynamic

2
compiler/il-structs.rkt
View File

@ -365,7 +365,7 @@
;; Check the closure procedure value in 'proc and make sure it's a closure
;; that can accept the right arguments (stored as a number in the argcount register.).
(define-struct: CheckClosureAndArity! ([num-args : OpArg])
(define-struct: CheckClosureAndArity! ()
#:transparent)

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

@ -22,8 +22,7 @@
[(CheckClosureAndArity!? op)
(format "RT.checkClosureAndArity(M, ~a);"
(assemble-oparg (CheckClosureAndArity!-num-args op)))]
"RT.checkClosureAndArity(M);"]
[(ExtendEnvironment/Prefix!? op)
(let: ([names : (Listof (U Symbol False GlobalBucket ModuleVariable)) (ExtendEnvironment/Prefix!-names op)])

6
js-assembler/runtime-src/runtime.js
View File

@ -655,12 +655,12 @@
var checkClosureAndArity = function(M, n) {
var checkClosureAndArity = function(M) {
if(!(M.proc instanceof Closure)){
raiseOperatorIsNotClosure(M,M.proc);
}
if(!isArityMatching(M.proc.racketArity,n)) {
raiseArityMismatchError(M, M.proc,n);
if(!isArityMatching(M.proc.racketArity,M.a)) {
raiseArityMismatchError(M, M.proc,M.a);
}
};