From 828d12b4757de8a461bf01c9ef7c88d3250202ad Mon Sep 17 00:00:00 2001 From: Jan Nieuwenhuizen 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 ba72257c..3476a882 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));