summaryrefslogtreecommitdiffstats
path: root/tests/008/mdo.txr
blob: dbc8b50c4b78402ab219866483c25fc6a0c28fd0 (plain)
1
2
3
4
5
6
7
@(mdo (defvar a))
@(mdo (push 1 a))
@(define foo)
@  (mdo (push 2 a))
@(end)
@(foo)
@(do (assert (equal a '(2 1))))