A better IDE

2022-06-14 15:54:07 +02:00
parent 22d00d0360
commit d75b000ad1
11 changed files with 101 additions and 19 deletions
@@ -51,8 +51,18 @@ CarpListNode >> initialize [

 { #category : #accessing }
 CarpListNode >> intoModel [
-	^ CarpList
-		contents: (expressions collect: #intoModel)
+	^ self isDefinition
+		ifTrue: [ | binding |
+			binding := (CarpBinding perform: self expressions first value source asSymbol)
+					name: self definitionVariable intoModel.
+			self expressions size = 3
+				ifTrue: [ binding binding: self expressions third intoModel ].
+			self expressions size = 4
+				ifTrue: [ binding
+						arguments: self expressions third intoModel;
+						body: self expressions fourth intoModel ].
+			binding ]
+		ifFalse: [ CarpList contents: (expressions collect: #intoModel) ]
 ]

 { #category : #accessing }