From a6dc5130c0076aa22bb3af223b6e597ad9a3b597 Mon Sep 17 00:00:00 2001 From: StevenCostiou Date: Mon, 24 Aug 2020 13:07:26 +0200 Subject: [PATCH] Integrating Oups in Context --- src/Kernel/Context.class.st | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/src/Kernel/Context.class.st b/src/Kernel/Context.class.st index efbe945ab5a..df3377aa9e0 100644 --- a/src/Kernel/Context.class.st +++ b/src/Kernel/Context.class.st @@ -406,12 +406,12 @@ Context >> canHandleSignal: exception [ { #category : #'private-exceptions' } Context >> cannotReturn: result [ + closureOrNil ifNotNil: [ - ^BlockCannotReturn result: result from: self home]. - Processor activeProcess - debug: thisContext - title: 'computation has been terminated' - + ^ BlockCannotReturn result: result from: self home ]. + (OupsDebugRequest newForContext: thisContext) + label: 'computation has been terminated'; + submit ] { #category : #private }