Multiple changes:

- Add the book and a few first pages
- Add the code generator

src/Carp-AST/CarpExpressionNode.class.st

@@ -4,6 +4,12 @@ Class {
 	#category : #'Carp-AST'
 }
 
+{ #category : #accessing }
+CarpExpressionNode class >> itself [
+	<gtExample>
+	^ self
+]
+
 { #category : #generated }
 CarpExpressionNode >> acceptVisitor: anExpressionVisitor [
 

src/Carp-AST/CarpModuleOrTypeNode.class.st

@@ -1,34 +0,0 @@
-Class {
-	#name : #CarpModuleOrTypeNode,
-	#superclass : #CarpExpressionNode,
-	#instVars : [
-		'value'
-	],
-	#category : #'Carp-AST'
-}
-
-{ #category : #generated }
-CarpModuleOrTypeNode >> acceptVisitor: anExpressionVisitor [
-
-	^ anExpressionVisitor visitModuleOrType: self
-]
-
-{ #category : #generated }
-CarpModuleOrTypeNode >> otherVariables [
-
-	^ #( #value )
-]
-
-{ #category : #generated }
-CarpModuleOrTypeNode >> value [
-
-	^ value
-]
-
-{ #category : #generated }
-CarpModuleOrTypeNode >> value: anObject [
-
-	self setParent: self value to: nil.
-	value := anObject.
-	self setParent: self value to: self
-]