branch | jv |
changeset 16624 | 2315cabbf137 |
parent 16617 | 69e7de1ef22f |
parent 16623 | 0e857d5919f4 |
child 16731 | 31c8c2a31669 |
--- a/DebugView.st Tue May 17 07:04:09 2016 +0200 +++ b/DebugView.st Thu May 19 07:08:10 2016 +0200 @@ -1898,11 +1898,13 @@ haltingMethod isBreakpointed ifTrue:[ haltingMethod clearBreakPoint ]. - ]. + ]. + ex proceed ]. - answer ~~ #debug ifTrue:[ + answer == #debug ifTrue:[ ex reject. - ] + ]. + ex proceed ] ] do:aBlock.