Avoid using #- on BlockClosure>>on:except:do: extension

ba-st · Aug 4, 2023 · eb8618f · eb8618f
1 parent feb012a
commit eb8618f
Showing 1 changed file with 5 additions and 2 deletions.
diff --git a/source/Buoy-Exception-Handling/BlockClosure.extension.st b/source/Buoy-Exception-Handling/BlockClosure.extension.st
@@ -4,6 +4,9 @@ Extension { #name : #BlockClosure }
 BlockClosure >> on: selector except: exclusionSelector do: action [
 
 	^ self
-		on: selector - exclusionSelector
-		do: action
+		  on: selector
+		  do: [ :exception |
+			  (exclusionSelector handles: exception)
+				  ifTrue: [ exception pass ]
+				  ifFalse: [ action value: exception ] ]
 ]