core: expand_variable: Remove weird exceptions: begin, if.
authorJan Nieuwenhuizen <janneke@gnu.org>
Tue, 16 Oct 2018 15:13:04 +0000 (17:13 +0200)
committerJan Nieuwenhuizen <janneke@gnu.org>
Tue, 16 Oct 2018 15:13:04 +0000 (17:13 +0200)
* src/mes.c (expand_variable_): Remove weird exceptions: begin, if.

src/mes.c

index d8e79338b63fa2aefd18222b4d98b83e18b9d9ae..ec868091415caf942297300e3c2b0cff8f41399b 100644 (file)
--- a/src/mes.c
+++ b/src/mes.c
@@ -1012,12 +1012,9 @@ expand_variable_ (SCM x, SCM formals, int top_p) ///((internal))
           else if (CAR (x) == cell_symbol_quote)
             return cell_unspecified;
           else if (TYPE (CAR (x)) == TSYMBOL
           else if (CAR (x) == cell_symbol_quote)
             return cell_unspecified;
           else if (TYPE (CAR (x)) == TSYMBOL
-                   && CAR (x) != cell_begin
-                   && CAR (x) != cell_symbol_begin
                    && CAR (x) != cell_symbol_boot_module
                    && CAR (x) != cell_symbol_current_module
                    && CAR (x) != cell_symbol_primitive_load
                    && CAR (x) != cell_symbol_boot_module
                    && CAR (x) != cell_symbol_current_module
                    && CAR (x) != cell_symbol_primitive_load
-                   && CAR (x) != cell_symbol_if // HMM
                    && !formal_p (CAR (x), formals))
             {
               SCM v = module_variable (r0, CAR (x));
                    && !formal_p (CAR (x), formals))
             {
               SCM v = module_variable (r0, CAR (x));