diff -r 57c257f1150a -r d048f13cd50a ExecutableFunction.st --- a/ExecutableFunction.st Fri Sep 05 12:25:14 2003 +0200 +++ b/ExecutableFunction.st Fri Sep 05 12:29:15 2003 +0200 @@ -14,7 +14,7 @@ Object subclass:#ExecutableFunction instanceVariableNames:'code*' - classVariableNames:'ExecutionErrorSignal InvalidCodeSignal' + classVariableNames:'' poolDictionaries:'' category:'Kernel-Methods' ! @@ -68,36 +68,6 @@ " ! ! -!ExecutableFunction class methodsFor:'initialization'! - -initialize - "create signals raised by various errors" - - "uses class-based exceptions now (but remain backward compatible)" - - InvalidCodeSignal isNil ifTrue:[ -"/ ExecutionErrorSignal := Error newSignalMayProceed:true. -"/ ExecutionErrorSignal nameClass:self message:#executionErrorSignal. - ExecutionErrorSignal := ExecutionError. - ExecutionErrorSignal notifierString:'execution error'. - -"/ InvalidCodeSignal := ExecutionErrorSignal newSignalMayProceed:true. -"/ InvalidCodeSignal nameClass:self message:#invalidCodeSignal. - InvalidCodeSignal := InvalidCodeError. - InvalidCodeSignal notifierString:'invalid code-object - not executable'. - ] - - "Modified: 22.4.1996 / 16:34:13 / cg" -! ! - -!ExecutableFunction class methodsFor:'Signal constants'! - -executionErrorSignal - "return the parent-signal of all execution errors" - - ^ ExecutionErrorSignal -! ! - !ExecutableFunction class methodsFor:'queries'! isBuiltInClass @@ -167,7 +137,7 @@ Can only happen when the Compiler/runtime system is broken or someone played around." - ^ InvalidCodeSignal raise. + ^ InvalidCodeError raise. "Modified: 4.11.1996 / 22:47:21 / cg" ! ! @@ -437,7 +407,5 @@ !ExecutableFunction class methodsFor:'documentation'! version - ^ '$Header: /cvs/stx/stx/libbasic/ExecutableFunction.st,v 1.49 2003-05-07 14:05:59 cg Exp $' + ^ '$Header: /cvs/stx/stx/libbasic/ExecutableFunction.st,v 1.50 2003-09-05 10:28:10 stefan Exp $' ! ! - -ExecutableFunction initialize!