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

getting rid of the raiseOperatorIsNotClosure in favor of raiseOperatorApplicationError

Browse Source
This commit is contained in:
Danny Yoo 2011-11-21 19:06:26 -05:00
parent 452fbffcd5
commit de0f72b249
3 changed files with 2 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
js-assembler/runtime-src/baselib-exceptions.js
View File

@ -145,13 +145,6 @@
ExnFailContract.constructor(message, contMarks));
};
var raiseOperatorIsNotClosure = function(MACHINE, operator) {
var message = baselib.format.format("not a closure: ~e",
[operator]);
var contMarks = MACHINE.captureContinuationMarks();
raise(MACHINE,
ExnFailContract.constructor(message, contMarks));
};
var raiseOperatorIsNotPrimitiveProcedure = function(MACHINE, operator) {
var message = baselib.format.format("not a primitive procedure: ~e",
@ -235,7 +228,6 @@
exceptions.raiseContextExpectedValuesError = raiseContextExpectedValuesError;
exceptions.raiseArityMismatchError = raiseArityMismatchError;
exceptions.raiseOperatorApplicationError = raiseOperatorApplicationError;
exceptions.raiseOperatorIsNotClosure = raiseOperatorIsNotClosure;
exceptions.raiseOperatorIsNotPrimitiveProcedure = raiseOperatorIsNotPrimitiveProcedure;
exceptions.raiseUnimplementedPrimitiveError = raiseUnimplementedPrimitiveError;

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

@ -108,7 +108,6 @@
var raiseArityMismatchError = baselib.exceptions.raiseArityMismatchError;
var raiseOperatorApplicationError = baselib.exceptions.raiseOperatorApplicationError;
var raiseOperatorIsNotPrimitiveProcedure = baselib.exceptions.raiseOperatorIsNotPrimitiveProcedure;
var raiseOperatorIsNotClosure = baselib.exceptions.raiseOperatorIsNotClosure;
var raiseUnimplementedPrimitiveError = baselib.exceptions.raiseUnimplementedPrimitiveError;
@ -635,7 +634,7 @@
var checkClosureAndArity = function(M) {
if(!(M.p instanceof Closure)){
raiseOperatorIsNotClosure(M,M.p);
raiseOperatorApplicationError(M,M.p);
}
if(!isArityMatching(M.p.racketArity,M.a)) {
raiseArityMismatchError(M,M.p,M.a);
@ -722,7 +721,6 @@
exports['raiseArityMismatchError'] = raiseArityMismatchError;
exports['raiseOperatorApplicationError'] = raiseOperatorApplicationError;
exports['raiseOperatorIsNotPrimitiveProcedure'] = raiseOperatorIsNotPrimitiveProcedure;
exports['raiseOperatorIsNotClosure'] = raiseOperatorIsNotClosure;
exports['raiseUnimplementedPrimitiveError'] = raiseUnimplementedPrimitiveError;

2
version.rkt
View File

@ -7,4 +7,4 @@
(provide version)
(: version String)
(define version "1.88")
(define version "1.89")