blob: af3f3015ebf6a87ff212fcd1e97104696658cbeb (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
-- Testing -fbreak-on-exception
error "foo"
:set -fbreak-on-exception
error "foo"
:abandon
:l Test7.hs
:tr main
:hist
:back
:back
:back
:forward
:forward
:forward
:force _exception
:show bindings
:force _result
-- the exception is caught by the withProg/withArgs wrappers, hence 3 :continues
:continue
:continue
:continue
|
