--- a/MethodFinder.st Sun Jul 28 01:08:19 2019 +0200
+++ b/MethodFinder.st Tue Jul 30 11:49:20 2019 +0200
@@ -1643,6 +1643,7 @@
|sz argList val rec activeSel perform argIsBlock expectedAnswer|
"/ (aSelector startsWith:'copy') ifTrue:[Transcript showCR:aSelector].
+"/ (aSelector = 'raisedTo:') ifTrue:[Transcript showCR:aSelector].
"Transcript cr; show: aSelector. debug"
perform := aSelector beginsWith:'perform:'.
@@ -1695,7 +1696,7 @@
val :=
[
[
- (selector startsWith:'copy') ifTrue:[Transcript showCR:selector].
+ "/ (selector startsWith:'copy') ifTrue:[Transcript showCR:selector].
rec copy perform:aSelector withArguments:argList
] on:ObsoleteMethodCallWarning do:[
^ false