--- a/MethodFinder.st Wed Oct 22 00:17:56 2008 +0200
+++ b/MethodFinder.st Wed Oct 22 00:18:09 2008 +0200
@@ -216,6 +216,7 @@
"See if (data1 // C) is the answer"
self halt.
^ false.
+
const _ ((thisData at: 1) at: 1) // (answers at: 1). "May not be right!!"
got _ (subTest _ MethodFinder new copy: self addArg: const)
searchForOne isEmpty not.
@@ -1567,5 +1568,5 @@
!MethodFinder class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic3/MethodFinder.st,v 1.14 2008-01-22 15:54:46 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic3/MethodFinder.st,v 1.15 2008-10-21 22:18:09 cg Exp $'
! !