CRawCodeNode.class.st

Class {
	#name : #CRawCodeNode,
	#superclass : #CExpressionNode,
	#instVars : [
		'code'
	],
	#category : #'CAST-Nodes'
}

{ #category : #accessing }
CRawCodeNode class >> code: aString [

	^ self new
		  code: aString;
		  yourself
]

{ #category : #visiting }
CRawCodeNode >> acceptVisitor: anAbstractVisitor [
	^ anAbstractVisitor visitRawCode: self
]

{ #category : #accessing }
CRawCodeNode >> code [

	^ code
]

{ #category : #accessing }
CRawCodeNode >> code: anObject [

	code := anObject
]