--- a/Class.st Tue Feb 20 21:47:27 1996 +0100
+++ b/Class.st Tue Feb 20 21:48:28 1996 +0100
@@ -1781,14 +1781,14 @@
|cat code|
Class withoutUpdatingChangesDo:[
- Class methodRedefinitionSignal handle:[:ex |
- ex proceed
- ] do:[
- cat := (self compiledMethodAt:aSelector) category.
- code := self sourceCodeAt:aSelector.
- self compilerClass compile:code forClass:self inCategory:cat
- ]
+ MethodRedefinitionSignal ignoreIn:[
+ cat := (self compiledMethodAt:aSelector) category.
+ code := self sourceCodeAt:aSelector.
+ self compilerClass compile:code forClass:self inCategory:cat
+ ]
]
+
+ "Modified: 20.2.1996 / 20:23:21 / cg"
!
recompileAll
@@ -3887,6 +3887,6 @@
!Class class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.139 1996-02-11 16:30:49 ca Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.140 1996-02-20 20:48:28 cg Exp $'
! !
Class initialize!