From a34db9119b008ea5997aa6ebc291a7021f40293c Mon Sep 17 00:00:00 2001 From: "Sean B. Palmer" Date: Fri, 11 Oct 2013 11:55:14 +0100 Subject: [PATCH] Add macroexpand to core/language.hy --- hy/core/language.hy | 16 ++++++++++------ 1 file changed, 10 insertions(+), 6 deletions(-) diff --git a/hy/core/language.hy b/hy/core/language.hy index a96b25d..83634b3 100644 --- a/hy/core/language.hy +++ b/hy/core/language.hy @@ -119,6 +119,11 @@ (try (= x (iter x)) (catch [TypeError] false))) +(defn macroexpand [form] + "Return the macro expansion of form" + (import hy.macros) + (hy.macros.macroexpand form --name--)) + (defn neg? [n] "Return true if n is < 0" (_numeric-check n) @@ -212,9 +217,8 @@ (_numeric_check n) (= n 0)) -(def *exports* ["cycle" "dec" "distinct" "drop" "drop_while" "empty?" - "even?" "filter" "float?" "inc" - "instance?" "integer?" "iterable?" "iterate" "iterator?" "neg?" - "none?" "nth" "numeric?" "odd?" "pos?" "remove" "repeat" - "repeatedly" "second" "string?" "take" "take_nth" "take_while" - "zero?"]) +(def *exports* ["cycle" "dec" "distinct" "drop" "drop_while" "empty?" "even?" + "filter" "float?" "inc" "instance?" "integer?" "iterable?" + "iterate" "iterator?" "macroexpand" "neg?" "none?" "nth" + "numeric?" "odd?" "pos?" "remove" "repeat" "repeatedly" + "second" "string?" "take" "take_nth" "take_while" "zero?"])