tests/018/noclose.txr


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

@(next :list [mapcar tostring (range 1 20000)])
@(collect)
@num
@(next self-path)
@line
@(end)
@(try)
@(next :list [mapcar tostring (range 1 20000)])
@(collect)
@num
@(next "data")
@line
@(end)
@(catch)
@(do (put-line "caught"))
@(end)