Cleanup baseline

Author: guillep

src/BaselineOfSindarin/BaselineOfSindarin.class.st

@@ -10,8 +10,6 @@ BaselineOfSindarin >> baseline: spec [
 
 	<baseline>
 	spec for: #common do: [
-		spec postLoadDoIt: #postloadWithLoader:withPackageSpec:.
-
 		spec
 			package: 'Sindarin';
 			package: 'Sindarin-Tests';
@@ -21,17 +19,3 @@ BaselineOfSindarin >> baseline: spec [
 		group: 'default' with: #( 'Sindarin' 'Sindarin-Tests' );
 		group: 'experiments' with: #( 'default' 'Sindarin-Experiments' )
 ]
-
-{ #category : 'baselines' }
-BaselineOfSindarin >> postloadWithLoader: loader withPackageSpec: spec [
-
-	InstructionStream compiledMethodAt: #willJumpIfFalse ifAbsent: [
-		Smalltalk compiler
-			source: 'willJumpIfFalse
-	"Answer whether the next bytecode is a jump-if-false."
-
-	^ self method encoderClass isBranchIfFalseAt: pc in: self method';
-			class: InstructionStream;
-			compile;
-			install ]
-]

src/Sindarin/InstructionStream.extension.st

@@ -1,5 +1,12 @@
 Extension { #name : 'InstructionStream' }
 
+{ #category : '*Sindarin' }
+InstructionStream >> willCreateBlock [
+	"next bytecode is a block creation"
+
+	^ self method encoderClass isCreateFullBlockAt: pc in: self method
+]
+
 { #category : '*Sindarin' }
 InstructionStream >> willJump [
 	"Answer whether the next bytecode will jump."