artemist/mes
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

core: expand_variable: Remove weird exceptions: begin, if.

Browse source 
* src/mes.c (expand_variable_): Remove weird exceptions: begin, if.
This commit is contained in:
Jan Nieuwenhuizen 2018-10-16 17:13:04 +02:00
parent b226a175f8
commit a99f9c6df9
No known key found for this signature in database
GPG key ID: F3C1A0D9C1D65273
1 changed files with 0 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
src/mes.c
View file

@ -1012,12 +1012,9 @@ expand_variable_ (SCM x, SCM formals, int top_p) ///((internal))
else if (CAR (x) == cell_symbol_quote) else if (CAR (x) == cell_symbol_quote)
return cell_unspecified; return cell_unspecified;
else if (TYPE (CAR (x)) == TSYMBOL 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_boot_module
&& CAR (x) != cell_symbol_current_module && CAR (x) != cell_symbol_current_module
&& CAR (x) != cell_symbol_primitive_load && CAR (x) != cell_symbol_primitive_load
&& CAR (x) != cell_symbol_if // HMM
&& !formal_p (CAR (x), formals)) && !formal_p (CAR (x), formals))
{ {
SCM v = module_variable (r0, CAR (x)); SCM v = module_variable (r0, CAR (x));