fixed mudules in alists
This commit is contained in:
+1
-1
@@ -16,7 +16,7 @@ proc create_error(const char* c_file_name, int c_file_line, Lisp_Object* type, S
|
||||
|
||||
delete_error();
|
||||
if (Globals::breaking_on_errors) {
|
||||
debug_break();
|
||||
// debug_break();
|
||||
}
|
||||
// visualize_lisp_machine();
|
||||
|
||||
|
||||
+2
-3
@@ -597,7 +597,7 @@ proc run_all_tests() -> bool {
|
||||
|
||||
bool result = true;
|
||||
|
||||
Memory::init(4096 * 2000, 1024 * 32, 4096 * 16 * 10);
|
||||
Memory::init(4096 * 4096, 1024 * 512, 4096 * 16 * 100);
|
||||
Environment* root_env = get_root_environment();
|
||||
Environment* user_env = Memory::create_child_environment(root_env);
|
||||
push_environment(user_env);
|
||||
@@ -633,17 +633,16 @@ proc run_all_tests() -> bool {
|
||||
|
||||
printf("\n-- Test Files --\n");
|
||||
|
||||
invoke_test_script("sicp");
|
||||
invoke_test_script("evaluation_of_default_args");
|
||||
invoke_test_script("alists");
|
||||
invoke_test_script("case_and_cond");
|
||||
invoke_test_script("lexical_scope");
|
||||
invoke_test_script("class_macro");
|
||||
invoke_test_script("import_and_load");
|
||||
invoke_test_script("sicp");
|
||||
invoke_test_script("macro_expand");
|
||||
invoke_test_script("automata");
|
||||
|
||||
|
||||
return result;
|
||||
}
|
||||
|
||||
|
||||
Reference in New Issue
Block a user