Commit 2da04436 authored by John van Groningen's avatar John van Groningen
Browse files

commented out some debug code to reduce memory allocation by

the compiler
parent 58550e81
......@@ -61,7 +61,7 @@ where
[x : xs]
-> (x, xs)
_
-> abort ("restoreOccurrences" ---> (fv_name, fv_info_ptr, wher))
-> abort ("restoreOccurrences" /* ---> (fv_name, fv_info_ptr, wher) */)
var_heap = var_heap <:= (fv_info_ptr, VI_Occurrence {old_occ & occ_ref_count = prev_ref_count, occ_previous = occ_previous })
= case occ_ref_count ===> ("restore_occurrence", fv_name, fv_info_ptr, (occ_ref_count, prev_ref_count, occ_previous)) of
RC_Unused
......
Supports Markdown
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