--- a/SharedPool.st Mon Nov 03 12:20:32 2008 +0100
+++ b/SharedPool.st Mon Nov 03 12:22:46 2008 +0100
@@ -68,7 +68,7 @@
| aSymbol binding |
-self halt:'unfinished implementation'.
+ self shouldImplement. "not yet finished"
aSymbol := varName asSymbol.
"First look in classVar dictionary."
@@ -93,8 +93,8 @@
classBindingOf: varName
"For initialization messages grant the regular scope"
-self halt:'unfinished implementation'.
- ^super bindingOf: varName
+ self shouldImplement. "not yet finished"
+ ^ super bindingOf: varName
!
includesKey:aSymbol
@@ -138,5 +138,5 @@
!SharedPool class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/SharedPool.st,v 1.5 2008-01-25 10:25:16 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/SharedPool.st,v 1.6 2008-11-03 11:22:46 stefan Exp $'
! !