Yaltik/hy
2
0
Fork 0
Code Pull Requests Releases Activity

Fixed --name-- scope problem using ugly inspect code

Browse Source
This commit is contained in:
Sean B. Palmer 2013-10-11 14:30:55 +01:00
parent defccc6853
commit c34db29ba8
1 changed files with 10 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
hy/core/language.hy
View File

@ -121,13 +121,21 @@
(defn macroexpand [form]
"Return the full macro expansion of form"
(import inspect)
(import hy.macros)
(hy.macros.macroexpand form --name--))
(setv f (get (get (.stack inspect) 1) 0))
(setv name (get f.f_globals "__name__"))
(hy.macros.macroexpand form name))
(defn macroexpand-1 [form]
"Return the single step macro expansion of form"
(import inspect)
(import hy.macros)
(hy.macros.macroexpand-1 form --name--))
(setv f (get (get (.stack inspect) 1) 0))
(setv name (get f.f_globals "__name__"))
(hy.macros.macroexpand-1 form name))
(defn neg? [n]
"Return true if n is < 0"