commit before hashmaps
This commit is contained in:
+1
-1
@@ -174,7 +174,7 @@ proc load_built_ins_into_environment() -> void {
|
|||||||
auto label(sfun,__LINE__) = Memory::create_lisp_object_cfunction(special); \
|
auto label(sfun,__LINE__) = Memory::create_lisp_object_cfunction(special); \
|
||||||
/*NOTE(Felix): for evaluating default args*/ \
|
/*NOTE(Felix): for evaluating default args*/ \
|
||||||
push_environment(get_root_environment()); \
|
push_environment(get_root_environment()); \
|
||||||
try_void create_arguments_from_lambda_list_and_inject(label(params,__LINE__)->value.pair.rest, label(sfun,__LINE__)); \
|
create_arguments_from_lambda_list_and_inject(label(params,__LINE__)->value.pair.rest, label(sfun,__LINE__)); \
|
||||||
pop_environment(); \
|
pop_environment(); \
|
||||||
label(sfun,__LINE__)->sourceCodeLocation = new(Source_Code_Location); \
|
label(sfun,__LINE__)->sourceCodeLocation = new(Source_Code_Location); \
|
||||||
label(sfun,__LINE__)->sourceCodeLocation->file = file_name_built_ins; \
|
label(sfun,__LINE__)->sourceCodeLocation->file = file_name_built_ins; \
|
||||||
|
|||||||
+1
-1
@@ -16,7 +16,7 @@ proc create_error(const char* c_file_name, int c_file_line, Lisp_Object* type, S
|
|||||||
|
|
||||||
delete_error();
|
delete_error();
|
||||||
if (Globals::breaking_on_errors) {
|
if (Globals::breaking_on_errors) {
|
||||||
// debug_break();
|
debug_break();
|
||||||
}
|
}
|
||||||
// visualize_lisp_machine();
|
// visualize_lisp_machine();
|
||||||
|
|
||||||
|
|||||||
Reference in New Issue
Block a user