io: remove macroexpand

kanaka · Oct 29, 2024 · 78b0d7a · 78b0d7a
1 parent d47d0ff
commit 78b0d7a
Show file tree

Hide file tree

Showing 3 changed files with 1 addition and 7 deletions.
diff --git a/impls/io/step8_macros.io b/impls/io/step8_macros.io
@@ -98,9 +98,7 @@ EVAL := method(ast, env,
                     ast = quasiquote(ast at(1))
                     continue, // TCO
                 "defmacro!",
-                    return(env set(ast at(1), EVAL(ast at(2), env) clone setIsMacro(true))),
-                "macroexpand",
-                    return(macroexpand(ast at(1), env))
+                    return(env set(ast at(1), EVAL(ast at(2), env) clone setIsMacro(true)))
             )
         )
 

diff --git a/impls/io/step9_try.io b/impls/io/step9_try.io
@@ -99,8 +99,6 @@ EVAL := method(ast, env,
                     continue, // TCO
                 "defmacro!",
                     return(env set(ast at(1), EVAL(ast at(2), env) clone setIsMacro(true))),
-                "macroexpand",
-                    return(macroexpand(ast at(1), env)),
                 "try*",
                     if(ast at(2) == nil, return(EVAL(ast at(1), env)))
                     e := try(result := EVAL(ast at(1), env))

diff --git a/impls/io/stepA_mal.io b/impls/io/stepA_mal.io
@@ -99,8 +99,6 @@ EVAL := method(ast, env,
                     continue, // TCO
                 "defmacro!",
                     return(env set(ast at(1), EVAL(ast at(2), env) clone setIsMacro(true))),
-                "macroexpand",
-                    return(macroexpand(ast at(1), env)),
                 "try*",
                     if(ast at(2) == nil, return(EVAL(ast at(1), env)))
                     e := try(result := EVAL(ast at(1), env))