# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1089191861 -7200
# Node ID 9c2adf12f271d3a87724c534ccbb4d7e13cefc85
# Parent  47f714bc1981a7e7dcf6fe941db0732344d6fa36
initial checkin

diff -r 47f714bc1981 -r 9c2adf12f271 ParseErrorNode.st
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/ParseErrorNode.st	Wed Jul 07 11:17:41 2004 +0200
@@ -0,0 +1,37 @@
+"{ Package: 'stx:libcomp' }"
+
+Object subclass:#ParseErrorNode
+	instanceVariableNames:'errorString'
+	classVariableNames:''
+	poolDictionaries:''
+	category:'System-Compiler-Support'
+!
+
+
+!ParseErrorNode class methodsFor:'instance creation'!
+
+errorString:arg
+    ^ self new errorString:arg
+! !
+
+!ParseErrorNode methodsFor:'accessing'!
+
+errorString
+    ^ errorString
+!
+
+errorString:something
+    errorString := something.
+! !
+
+!ParseErrorNode methodsFor:'queries'!
+
+isErrorNode
+    ^ true
+! !
+
+!ParseErrorNode class methodsFor:'documentation'!
+
+version
+    ^ '$Header: /cvs/stx/stx/libcomp/ParseErrorNode.st,v 1.1 2004-07-07 09:17:41 cg Exp $'
+! !