Adding comment and verify:

pillar-markup · Sep 13, 2024 · ef20263 · ef20263
1 parent c3060ad
commit ef20263
Show file tree

Hide file tree

Showing 2 changed files with 9 additions and 3 deletions.
diff --git a/src/Microdown-BookTester/MicBrokenSyncOriginDefinition.class.st b/src/Microdown-BookTester/MicBrokenSyncOriginDefinition.class.st
@@ -1,3 +1,9 @@
+"
+The origin in `sync=true&origin=Class>>#selector` should point to a method. A method either in the instance or class side. 
+
+I represent a wrong or badly defined origin specification so I represent that the 
+ user specified something else than C [class]>>#selector 
+"
 Class {
 	#name : 'MicBrokenSyncOriginDefinition',
 	#superclass : 'MicResult',

diff --git a/src/Microdown-BookTester/MicSyncTesterStrategy.class.st b/src/Microdown-BookTester/MicSyncTesterStrategy.class.st
@@ -54,7 +54,7 @@ MicSyncTesterStrategy >> verify: aCodeBlock [
 
 			splits := originString splitOn: '>>'.
 			( splits size = 2 ) 
-				ifFalse: [ self halt.self handleBrokenOrigin: originString of: aCodeBlock ]
+				ifFalse: [ self handleBrokenOrigin: originString of: aCodeBlock ]
 				ifTrue: [
 					| class |
 
@@ -65,14 +65,14 @@ MicSyncTesterStrategy >> verify: aCodeBlock [
 							isMeta := isMeta = 'class'  ].
 					class := Smalltalk globals 
 							at: className first asSymbol	
-							ifAbsent: [ self halt. ^ self handleBrokenOrigin: originString of: aCodeBlock ].
+							ifAbsent: [ ^ self handleBrokenOrigin: originString of: aCodeBlock ].
 			isMeta 
 				ifTrue: [ class := class class ].	
 
 			class 
 				compiledMethodAt: splits second trimBoth allButFirst asSymbol
 				ifPresent: [ :m | method := m  ]
-				ifAbsent: [ self halt. ^ self 
+				ifAbsent: [ ^ self 
 									handleBrokenOrigin: originString 
 									of: aCodeBlock ].