tests/007/except-4.txr


1
2
3
4
5
6
7
8

@(include "../common")
@(try)
@(next (open-command "echo foo; kill -KILL $$"))
@a
@(catch)
@(bind a "bar")
@(end)
@(do (put-line a))