1 "{ Package: 'stx:libcomp' }"

     2 

     3 Object subclass:#ParseErrorNode

     4 	instanceVariableNames:'errorString'

     5 	classVariableNames:''

     6 	poolDictionaries:''

     7 	category:'System-Compiler-Support'

     8 !

     9 

    10 

    11 !ParseErrorNode class methodsFor:'instance creation'!

    12 

    13 errorString:arg

    14     ^ self new errorString:arg

    15 ! !

    16 

    17 !ParseErrorNode methodsFor:'accessing'!

    18 

    19 errorString

    20     ^ errorString

    21 !

    22 

    23 errorString:something

    24     errorString := something.

    25 ! !

    26 

    27 !ParseErrorNode methodsFor:'queries'!

    28 

    29 isErrorNode

    30     ^ true

    31 ! !

    32 

    33 !ParseErrorNode class methodsFor:'documentation'!

    34 

    35 version

    36     ^ '$Header: /cvs/stx/stx/libcomp/ParseErrorNode.st,v 1.1 2004-07-07 09:17:41 cg Exp $'

    37 ! !