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 ;; Compiled branch
(make-PerformStatement (make-CheckClosureAndArity! (make-Reg 'argcount))) (make-PerformStatement (make-CheckClosureAndArity!))
(compile-compiled-procedure-application cenv (compile-compiled-procedure-application cenv
number-of-arguments number-of-arguments
'dynamic '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 ;; 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.). ;; that can accept the right arguments (stored as a number in the argcount register.).
(define-struct: CheckClosureAndArity! ([num-args : OpArg]) (define-struct: CheckClosureAndArity! ()
#:transparent) #:transparent)

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

@ -22,8 +22,7 @@
[(CheckClosureAndArity!? op) [(CheckClosureAndArity!? op)
(format "RT.checkClosureAndArity(M, ~a);" "RT.checkClosureAndArity(M);"]
(assemble-oparg (CheckClosureAndArity!-num-args op)))]
[(ExtendEnvironment/Prefix!? op) [(ExtendEnvironment/Prefix!? op)
(let: ([names : (Listof (U Symbol False GlobalBucket ModuleVariable)) (ExtendEnvironment/Prefix!-names 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)){ if(!(M.proc instanceof Closure)){
raiseOperatorIsNotClosure(M,M.proc); raiseOperatorIsNotClosure(M,M.proc);
} }
if(!isArityMatching(M.proc.racketArity,n)) { if(!isArityMatching(M.proc.racketArity,M.a)) {
raiseArityMismatchError(M, M.proc,n); raiseArityMismatchError(M, M.proc,M.a);
} }
}; };