tests/008/call.txr


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

@(next :list '("1"))
@(define match1 (A))
@ (all)
1
@ (and)
@A
@ (end)
@(end)
@(call 'match1 A)
@(output)
correct
@A
@(end)