From a99f9c6df99e9814b5c0cab2192fe28a379fbd4e Mon Sep 17 00:00:00 2001
From: Jan Nieuwenhuizen <janneke@gnu.org>
Date: Tue, 16 Oct 2018 17:13:04 +0200
Subject: [PATCH] core: expand_variable: Remove weird exceptions: begin, if.

* src/mes.c (expand_variable_): Remove weird exceptions: begin, if.
---
 src/mes.c | 3 ---
 1 file changed, 3 deletions(-)

diff --git a/src/mes.c b/src/mes.c
index d8e79338..ec868091 100644
--- 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
-                   && 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_if // HMM
                    && !formal_p (CAR (x), formals))
             {
               SCM v = module_variable (r0, CAR (x));