--- a/Parser.st Tue Oct 11 17:50:50 2016 +0200
+++ b/Parser.st Wed Oct 12 15:38:38 2016 +0200
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
"
COPYRIGHT (c) 1989 by Claus Gittinger
All Rights Reserved
@@ -5419,6 +5417,7 @@
selector := aParser selector.
! !
+
!Parser methodsFor:'obsolete'!
correctByDeleting
@@ -11663,9 +11662,7 @@
source := aCompiler currentSource.
badName := source copyFrom:pos1 to:pos2.
- node := DoWhatIMeanSupport
- findNodeForInterval:(pos1 to:pos2)
- in:source.
+ node := DoWhatIMeanSupport findNodeForInterval:(pos1 to:pos2) in:source.
node isNil ifTrue:[
Dialog information:'Sorry - could not extract identifier node from the source'.
^ nil.