*** empty log message ***
authorClaus Gittinger <cg@exept.de>
Fri, 14 Jan 2005 11:12:58 +0100
changeset 1412 f0ebec25afab
parent 1411 430f0dfaf006
child 1413 b9087201c7aa
*** empty log message ***
ChangeSet.st
--- a/ChangeSet.st	Fri Jan 14 11:08:02 2005 +0100
+++ b/ChangeSet.st	Fri Jan 14 11:12:58 2005 +0100
@@ -475,7 +475,7 @@
     pos := stream position.
     chunk := stream nextChunk.
     tree := (Parser parseExpression:chunk).
-    (tree isNil or:[tree == #Error]) ifTrue:[^ self].
+    tree isNil ifTrue:[^ self].
     stream position:pos
 ! !
 
@@ -1941,5 +1941,5 @@
 !ChangeSet class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/ChangeSet.st,v 1.115 2005-01-14 10:08:02 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/ChangeSet.st,v 1.116 2005-01-14 10:12:58 cg Exp $'
 ! !