andrius
/
mes
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

core: Remove cell_begin special. 

* include/mes/symbols.h (cell_begin): Remove.
* src/eval-apply.c (eval_apply): Update to use cell_symbol_begin.
* src/symbol.c (init_symbols_): Remove initialization.
This commit is contained in:
Jan (janneke) Nieuwenhuizen 2020-08-18 10:40:55 +02:00
parent f8152da76a
commit c6fd15469c
No known key found for this signature in database
GPG Key ID: F3C1A0D9C1D65273
3 changed files with 6 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
include/mes/symbols.h
View File

@ -30,7 +30,6 @@ SCM cell_undefined;
SCM cell_unspecified; SCM cell_unspecified;
SCM cell_closure; SCM cell_closure;
SCM cell_circular; SCM cell_circular;
SCM cell_begin;
SCM cell_call_with_current_continuation; SCM cell_call_with_current_continuation;
SCM cell_vm_apply; SCM cell_vm_apply;
SCM cell_vm_apply2; SCM cell_vm_apply2;
@ -43,6 +42,7 @@ SCM cell_vm_begin_expand_primitive_load;
SCM cell_vm_begin_primitive_load; SCM cell_vm_begin_primitive_load;
SCM cell_vm_begin_read_input_file; SCM cell_vm_begin_read_input_file;
SCM cell_vm_call_with_current_continuation2; SCM cell_vm_call_with_current_continuation2;
SCM cell_vm_call_with_values2; SCM cell_vm_call_with_values2;
SCM cell_vm_eval; SCM cell_vm_eval;
SCM cell_vm_eval2; SCM cell_vm_eval2;
@ -138,14 +138,14 @@ SCM cell_type_broken_heart;
SCM cell_symbol_program; SCM cell_symbol_program;
SCM cell_symbol_test; SCM cell_symbol_test;
// CONSTANT SYMBOL_MAX 116 // CONSTANT SYMBOL_MAX 115
#define SYMBOL_MAX 116 #define SYMBOL_MAX 115
// CONSTANT CELL_UNSPECIFIED 7 // CONSTANT CELL_UNSPECIFIED 7
#define CELL_UNSPECIFIED 7 #define CELL_UNSPECIFIED 7
// CONSTANT CELL_SYMBOL_RECORD_TYPE 84 // CONSTANT CELL_SYMBOL_RECORD_TYPE 83
#define CELL_SYMBOL_RECORD_TYPE 84 #define CELL_SYMBOL_RECORD_TYPE 83
#endif /* __MES_SYMBOLS_H */ #endif /* __MES_SYMBOLS_H */

5
src/eval-apply.c
View File

@ -723,10 +723,7 @@ eval:
if (R1 == cell_symbol_current_module) if (R1 == cell_symbol_current_module)
goto vm_return; goto vm_return;
if (R1 == cell_symbol_begin) if (R1 == cell_symbol_begin)
{ goto vm_return;
R1 = cell_begin;
goto vm_return;
}
R1 = assert_defined (R1, module_ref (R0, R1)); R1 = assert_defined (R1, module_ref (R0, R1));
goto vm_return; goto vm_return;
} }

2
src/symbol.c
View File

@ -70,10 +70,8 @@ init_symbols_ () /*:((internal)) */
cell_unspecified = init_symbol (g_symbol, TSPECIAL, "*unspecified*"); cell_unspecified = init_symbol (g_symbol, TSPECIAL, "*unspecified*");
cell_closure = init_symbol (g_symbol, TSPECIAL, "*closure*"); cell_closure = init_symbol (g_symbol, TSPECIAL, "*closure*");
cell_circular = init_symbol (g_symbol, TSPECIAL, "*circular*"); cell_circular = init_symbol (g_symbol, TSPECIAL, "*circular*");
cell_begin = init_symbol (g_symbol, TSPECIAL, "*begin*");
cell_call_with_current_continuation = init_symbol (g_symbol, TSPECIAL, "*call/cc*"); cell_call_with_current_continuation = init_symbol (g_symbol, TSPECIAL, "*call/cc*");
cell_vm_apply = init_symbol (g_symbol, TSPECIAL, "core:apply"); cell_vm_apply = init_symbol (g_symbol, TSPECIAL, "core:apply");
cell_vm_apply2 = init_symbol (g_symbol, TSPECIAL, "*vm-apply2*"); cell_vm_apply2 = init_symbol (g_symbol, TSPECIAL, "*vm-apply2*");
cell_vm_begin = init_symbol (g_symbol, TSPECIAL, "*vm-begin*"); cell_vm_begin = init_symbol (g_symbol, TSPECIAL, "*vm-begin*");