--- a/Parser.st Fri Feb 01 00:02:58 2019 +0100
+++ b/Parser.st Fri Feb 01 01:04:21 2019 +0100
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
"
COPYRIGHT (c) 1989 by Claus Gittinger
All Rights Reserved
@@ -4311,7 +4309,7 @@
nowhereImplemented ifFalse:[
(receiver isConstant or:[receiver isBlock]) ifTrue:[
- err := err, ' in ' , selClass name , ' or any of its superclasses'.
+ "/ err := err, ' in ' , selClass name , ' or any of its superclasses'.
] ifFalse:[(((recType := receiver type) == #GlobalVariable)
or:[recType == #PrivateClass]) ifTrue:[
rec := receiver evaluate.
@@ -4502,6 +4500,7 @@
"Modified: / 05-09-1995 / 17:02:11 / claus"
"Modified: / 16-03-2017 / 11:36:48 / cg"
"Modified: / 04-12-2018 / 11:33:31 / Stefan Vogel"
+ "Modified: / 01-02-2019 / 01:01:10 / Claus Gittinger"
!
typeOfNode:aNode