diff --git a/js-assembler/runtime-src/baselib-exceptions.js b/js-assembler/runtime-src/baselib-exceptions.js index e2ea93f..eebd958 100644 --- a/js-assembler/runtime-src/baselib-exceptions.js +++ b/js-assembler/runtime-src/baselib-exceptions.js @@ -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; diff --git a/js-assembler/runtime-src/runtime.js b/js-assembler/runtime-src/runtime.js index 48842e1..8e66cad 100644 --- a/js-assembler/runtime-src/runtime.js +++ b/js-assembler/runtime-src/runtime.js @@ -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; diff --git a/version.rkt b/version.rkt index 9d352fe..e7851c3 100644 --- a/version.rkt +++ b/version.rkt @@ -7,4 +7,4 @@ (provide version) (: version String) -(define version "1.88") +(define version "1.89")