diff options
Diffstat (limited to 'tests/012/op.tl')
| -rw-r--r-- | tests/012/op.tl | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/tests/012/op.tl b/tests/012/op.tl index 0fffb6ee..12969dcc 100644 --- a/tests/012/op.tl +++ b/tests/012/op.tl @@ -40,6 +40,11 @@ (fi (do if @42 @rest)) (42 t) (fi (do if @1 @3 @rest @2)) (3 t)) +(mtest + [(do quote x) 3] :error + [(do quote @1) 3] :error + (do pop a) :error) + (defun y (f) [(op @1 @1) (op f (op [@@1 @@1]))]) |