Make that test macro more lispy

2013-05-11 20:35:56 +02:00 · 2013-05-11 20:35:56 +02:00 · bd478590fa
commit bd478590fa
parent 5a74fff7e6
1 changed files with 1 additions and 1 deletions
--- a/tests/native_tests/native_macros.hy
+++ b/tests/native_tests/native_macros.hy
@ -2,7 +2,7 @@
  "NATIVE: test stararged native macros"
  (defmacro rev [&rest body]
    "Execute the `body` statements in reverse"
-    (+ (quote (do)) (list (reversed body))))
+    (quasiquote (do (unquote-splice (list (reversed body)))))))

  (setv x [])
  (rev (.append x 1) (.append x 2) (.append x 3))