destructuring-examples.nydp in nydp-0.4.3

- old
+ new
@@ -64,15 +64,15 @@
   ; a lot of ceremony here to suppress side-effects of compiling really crap code and just get the warnings
   ("warns about arg names shadowing macro names"
    (do (without-hooks 'warnings/new
                       λ(on-err nil
                                (pre-compile '(fun (aif (and or) . when)
-                                                  "ignore"))))
+                                                  ignore))))
        warnings/list)
-   ((arg-shadows-macro "arg " when " shadows macro " when " in arg list " (aif (and or) . when))
-    (arg-shadows-macro "arg " or " shadows macro " or " in arg list " (aif (and or) . when))
-    (arg-shadows-macro "arg " and " shadows macro " and " in arg list " (aif (and or) . when))
-    (arg-shadows-macro "arg " aif " shadows macro " aif " in arg list " (aif (and or) . when))))
+   ((arg-shadows-macro "arg " when " shadows macro " when " in arg list " (aif (and or) . when) " and body " (ignore) )
+    (arg-shadows-macro "arg "   or " shadows macro "   or " in arg list " (aif (and or) . when) " and body " (ignore) )
+    (arg-shadows-macro "arg "  and " shadows macro "  and " in arg list " (aif (and or) . when) " and body " (ignore) )
+    (arg-shadows-macro "arg "  aif " shadows macro "  aif " in arg list " (aif (and or) . when) " and body " (ignore) )))
 
   ("implicit in 'let and 'with"
    (with ((a b)       (list "h" "e")
           (c (d e f)) (list "l" (list "l" "o" " ")))
           (let (g (h (i j) k)) (list "w" (list "o" (list "r" "l") "d"))