Parser.st
changeset 4408 0a758f62243e
parent 4407 cf8780f42d7e
child 4409 7511874b6983
--- a/Parser.st	Tue Apr 23 23:14:55 2019 +0200
+++ b/Parser.st	Wed May 01 11:40:58 2019 +0200
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 1989 by Claus Gittinger
               All Rights Reserved
@@ -2740,7 +2738,7 @@
             "/ O sound like a vowel, if not followed by 'ne'
             ('O' includes:firstCharacter) ifTrue:[
                 word size > 2 ifTrue:[
-                    (word copyTo:3) asLowercase = 'one' ifFalse:[
+                    ((word copyTo:3) sameAs:'one') ifFalse:[
                         soundsLikeVowel := true.
                     ].
                 ].
@@ -2815,6 +2813,7 @@
     ].
 
     "Modified: / 16-03-2012 / 18:36:43 / cg"
+    "Modified: / 01-05-2019 / 11:26:36 / Claus Gittinger"
 !
 
 checkLocalVariableNameConventionsFor:aVariableName