Oops, fixed slip in #ensureDollarsInVersionMethod: jv
authorJan Vrany <jan.vrany@fit.cvut.cz>
Wed, 04 May 2016 10:52:10 +0200
branchjv
changeset 4023 cc7c7a78a57f
parent 4022 b596e506bbe9
child 4024 aeb721b75bb8
Oops, fixed slip in #ensureDollarsInVersionMethod:
AbstractSourceCodeManager.st
--- a/AbstractSourceCodeManager.st	Wed May 04 08:22:14 2016 +0200
+++ b/AbstractSourceCodeManager.st	Wed May 04 10:52:10 2016 +0200
@@ -2604,7 +2604,7 @@
 
     |versionString|
 
-    versionString := aString copyWithout: $.
+    versionString := aString copyWithout: (Character codePoint: 167).
     ^ self ensureKeywordExpansionWith: $$ inVersionMethod:versionString.
 
     "
@@ -2617,7 +2617,7 @@
      self ensureDollarsInVersionMethod:'foo ^ ''Header$'' '    
     "
 
-    "Modified: / 20-01-2016 / 22:58:17 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 04-05-2016 / 10:51:27 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 ensureKeyword: keyword inVersionMethod: source