boot-tests.nydp in nydp-0.1.12

- old
+ new

@@ -83,10 +83,14 @@
    (pre-compile '(x:y a b))
    ((fn args (x (apply y args))) a b))
 
   ("special combination with bang"
    (pre-compile '(!x:y a b))
-   ((fn args (no (x (apply y args)))) a b)))
+   ((fn args (no (x (apply y args)))) a b))
+
+  ("precedence over ampersand-syntax"
+   (pre-compile '(&attr:func a b))
+   ((fn args ((fn (obj) (hash-get obj (quote attr))) (apply func args))) a b)))
 
 (examples-for let
   ("expands 'let"
    (do
        (def x+3*z (x y)