Evaluation works!

src/Carp-AST/CarpCharacterNode.class.st

@@ -13,6 +13,11 @@ CarpCharacterNode >> acceptVisitor: anExpressionVisitor [
 	^ anExpressionVisitor visitCharacter: self
 ]
 
+{ #category : #accessing }
+CarpCharacterNode >> toPharo [
+	^ value source asCharacter
+]
+
 { #category : #generated }
 CarpCharacterNode >> tokenVariables [
 

src/Carp-AST/CarpExpressionNode.class.st

@@ -25,3 +25,8 @@ CarpExpressionNode >> isQuoted [
 CarpExpressionNode >> listDepth [
 	^ parent ifNil: [ 0 ] ifNotNil: [ parent listDepth + 1 ]
 ]
+
+{ #category : #accessing }
+CarpExpressionNode >> toPharo [
+	^ self subclassResponsibility
+]

src/Carp-AST/CarpNumberNode.class.st

@@ -13,6 +13,11 @@ CarpNumberNode >> acceptVisitor: anExpressionVisitor [
 	^ anExpressionVisitor visitNumber: self
 ]
 
+{ #category : #accessing }
+CarpNumberNode >> toPharo [
+	^ value source asInteger
+]
+
 { #category : #generated }
 CarpNumberNode >> tokenVariables [
 

src/Carp-AST/CarpPairNode.class.st

@@ -34,6 +34,11 @@ CarpPairNode >> nodeVariables [
 	^ #( #key #value )
 ]
 
+{ #category : #accessing }
+CarpPairNode >> toPharo [
+	^ Association key: key toPharo value: value toPharo
+]
+
 { #category : #generated }
 CarpPairNode >> value [
 

src/Carp-AST/CarpQuoteNode.class.st

@@ -29,6 +29,11 @@ CarpQuoteNode >> nodeVariables [
 	^ #( #value )
 ]
 
+{ #category : #accessing }
+CarpQuoteNode >> toPharo [
+	^ {#quote . value toPharo }
+]
+
 { #category : #generated }
 CarpQuoteNode >> value [
 

src/Carp-AST/CarpStartNode.class.st

@@ -38,3 +38,8 @@ CarpStartNode >> initialize [
 	super initialize.
 	expressions := OrderedCollection new: 2.
 ]
+
+{ #category : #accessing }
+CarpStartNode >> toPharo [
+	^ expressions collect: #toPharo
+]

src/Carp-AST/CarpStringNode.class.st

@@ -13,6 +13,11 @@ CarpStringNode >> acceptVisitor: anExpressionVisitor [
 	^ anExpressionVisitor visitString: self
 ]
 
+{ #category : #accessing }
+CarpStringNode >> toPharo [
+	^ value source
+]
+
 { #category : #generated }
 CarpStringNode >> tokenVariables [
 

src/Carp-AST/CarpVariableNode.class.st

@@ -13,6 +13,11 @@ CarpVariableNode >> acceptVisitor: anExpressionVisitor [
 	^ anExpressionVisitor visitVariable: self
 ]
 
+{ #category : #accessing }
+CarpVariableNode >> toPharo [
+	^ value source asSymbol
+]
+
 { #category : #generated }
 CarpVariableNode >> tokenVariables [