tests/007/except-4.txr


1
2
3
4
5
6
7
8
9
10
11

@(include "../common")
@(if (meq (os-symbol) :openbsd :solaris))
@  (do (put-line "bar") (exit t))
@(end)
@(try)
@(next (open-command "echo foo; kill $$"))
@a
@(catch)
@(bind a "bar")
@(end)
@(do (put-line a))