--- a/UnitConverter.st Sat Apr 27 14:45:52 2013 +0200
+++ b/UnitConverter.st Tue May 07 17:28:33 2013 +0200
@@ -989,19 +989,19 @@
or nil if not found"
Conversions isNil ifTrue:[
- self initializeConversions
+ self initializeConversions
].
Scaling keysAndValuesDo:[:name :factor |
- |rest|
+ |rest|
- (what startsWith:name) ifTrue:[
- rest := what copyFrom:(name size+1).
- rest := rest asSymbolIfInterned.
- rest notNil ifTrue:[
- ^ rest -> factor.
- ]
- ].
+ (what startsWith:name) ifTrue:[
+ rest := what withoutPrefix:name.
+ rest := rest asSymbolIfInterned.
+ rest notNil ifTrue:[
+ ^ rest -> factor.
+ ]
+ ].
].
^ nil
@@ -1018,10 +1018,10 @@
!UnitConverter class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic2/UnitConverter.st,v 1.40 2013-04-25 13:09:39 stefan Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic2/UnitConverter.st,v 1.41 2013-05-07 15:28:33 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libbasic2/UnitConverter.st,v 1.40 2013-04-25 13:09:39 stefan Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic2/UnitConverter.st,v 1.41 2013-05-07 15:28:33 cg Exp $'
! !