Adding a printOn: to CompiledBlock

tesonep · Jun 5, 2020 · 98ec292 · 98ec292
1 parent 0f469f0
commit 98ec292
Showing 1 changed file with 5 additions and 2 deletions.
diff --git a/src/Kernel/CompiledBlock.class.st b/src/Kernel/CompiledBlock.class.st
@@ -131,8 +131,11 @@ CompiledBlock >> primitive [
 ]
 
 { #category : #printing }
-CompiledBlock >> printOn: s [
-	s << 'compiledBlock'
+CompiledBlock >> printOn: anStream [
+
+	anStream 
+		nextPutAll: 'a CompiledBlock: ';
+		nextPutAll: self sourceNode sourceCode 
 ]
 
 { #category : #compatibility }