Moving method

pharo-contributions · Sep 6, 2023 · 69cec7c · 69cec7c
1 parent bb20d6e
commit 69cec7c
Showing 1 changed file with 16 additions and 0 deletions.
diff --git a/src/MethodProxies/ProxyInstrumentationDeactivator.class.st b/src/MethodProxies/ProxyInstrumentationDeactivator.class.st
@@ -18,3 +18,19 @@ ProxyInstrumentationDeactivator >> handler: anObject [
 
 	handler := anObject
 ]
+
+{ #category : #evaluating }
+ProxyInstrumentationDeactivator >> value [
+
+	<noInstrumentation>
+	"Slow path, an exception or a non local return happened"
+	| wasMeta me |
+	thisProcess shiftLevelUp.
+
+	me := thisContext findContextSuchThat: [ :ctx | ctx isUnwindContext ].
+	wasMeta := me tempNamed: 'wasMeta'.
+	handler aboutToReturnWithReceiver: me receiver arguments: me arguments.
+	thisProcess shiftLevelDown.
+	wasMeta ifTrue: [ thisProcess shiftLevelDown ].
+
+]