tests/012/stack2.txr


1
2
3
4
5
6
7
8
9

@(define recur ())
@(recur)
@(end)
@(do (set-stack-limit 32768))
@(try)
@(recur)
@(catch stack-overflow (arg))
@(do (put-line "caught"))
@(end)