Commit bff16e02 authored by John van Groningen's avatar John van Groningen

initPtr modifies the *World

empty cache if compilation fails
parent 057ce061
......@@ -16,11 +16,12 @@ write_tcl_file yes no :== no;
Start world
# (std_io, world) = stdio world
(_, ms_out, world) = fopen "out" FWriteText world
(symbol_table,world) = init_identifiers newHeap world
(ms_out,world) = accFiles (
\files ->
(let
(ms_paths, ms_files, ms_error) = converFileToListOfStrings "mainPrefs" files stderr
ms = CommandLoop (init_identifiers newHeap) { ms_io = std_io, ms_out = ms_out, ms_error = ms_error, ms_files = ms_files, ms_paths = ms_paths }
ms = CommandLoop symbol_table { ms_io = std_io, ms_out = ms_out, ms_error = ms_error, ms_files = ms_files, ms_paths = ms_paths }
in
(ms.ms_out, ms.ms_files))) world
= fclose ms_out world
......@@ -271,6 +272,7 @@ where
-> collect_modules modules collected_modules random_numbers proj ms
_
# ms = {ms & ms_io = ms.ms_io <<< "Compiling " <<< id_name <<< " failed \n"}
# proj = {proj & proj_cache=empty_cache proj.proj_cache.hash_table.hte_symbol_heap}
-> collect_modules modules collected_modules random_numbers proj ms
// -> (NoModules, ms)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment