From 6a12deef011b3177bcc855d4c6aa184f737628d2 Mon Sep 17 00:00:00 2001
From: Holger Hans Peter Freyther <holger@moiji-mobile.com>
Date: Wed, 14 Aug 2013 13:46:04 +0200
Subject: [PATCH] gsm: Use variables of the class and not classVariables

---
 GSM48.st | 33 +++++++++++++++++----------------
 1 file changed, 17 insertions(+), 16 deletions(-)

diff --git a/GSM48.st b/GSM48.st
index 97cb188..c6b2b90 100644
--- a/GSM48.st
+++ b/GSM48.st
@@ -1514,8 +1514,9 @@ Object subclass: GSMNumberDigits [
     <category: 'OsmoGSM'>
     <comment: 'I represent table 10.5.118 continued'>
 
-    DigitMap := nil.
-    ReverseMap := nil.
+    GSMNumberDigits class [
+        | digitMap reverseMap |
+    ]
 
     GSMNumberDigits class >> mapDigit: aBinary [
         ^ self digitMap at: aBinary asInteger + 1.
@@ -1526,30 +1527,30 @@ Object subclass: GSMNumberDigits [
     ]
 
     GSMNumberDigits class >> digitMap [
-        ^ DigitMap ifNil: [
-            DigitMap := Dictionary new.
+        ^ digitMap ifNil: [
+            digitMap := Dictionary new.
             1 to: 10 do: [:each |
-                DigitMap at: each put: (each + 48 - 1) asCharacter.
+                digitMap at: each put: (each + 48 - 1) asCharacter.
             ].
 
-            DigitMap at: 11 put: $*.
-            DigitMap at: 12 put: $#.
-            DigitMap at: 13 put: $a.
-            DigitMap at: 14 put: $b.
-            DigitMap at: 15 put: $c.
-            DigitMap at: 16 put: Character eof.
-            DigitMap yourself.
+            digitMap at: 11 put: $*.
+            digitMap at: 12 put: $#.
+            digitMap at: 13 put: $a.
+            digitMap at: 14 put: $b.
+            digitMap at: 15 put: $c.
+            digitMap at: 16 put: Character eof.
+            digitMap yourself.
         ].
     ]
 
     GSMNumberDigits class >> reverseMap [
-        ^ ReverseMap ifNil: [
-            ReverseMap := Dictionary new.
+        ^ reverseMap ifNil: [
+            reverseMap := Dictionary new.
             self digitMap associationsDo: [:each |
-                ReverseMap at: each value put: (each key - 1).
+                reverseMap at: each value put: (each key - 1).
             ].
 
-            ReverseMap yourself.
+            reverseMap yourself.
         ].
     ]