fixed mudules in alists

This commit is contained in:
Felix Brendel
2019-10-01 23:34:36 +02:00
parent 8076c91600
commit 2cd0c2c0c0
4 changed files with 5 additions and 6 deletions
+1 -1
View File
@@ -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
View File
@@ -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;
}