core: expand_variable: Remove weird exceptions: begin, if.
* src/mes.c (expand_variable_): Remove weird exceptions: begin, if.
This commit is contained in:
parent
d07cd96f58
commit
828d12b475
|
@ -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));
|
||||
|
|
Loading…
Reference in New Issue