From 7b39783ce8b2e1fad9e98ff988896fd394d1a7d9 Mon Sep 17 00:00:00 2001
From: johnvg
Date: Fri, 8 Mar 2002 11:23:55 +0000
Subject: commented out some debug code to reduce memory allocation by the
 compiler

git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@1052 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
---
 frontend/refmark.icl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/frontend/refmark.icl b/frontend/refmark.icl
index e447641..9c5c5d4 100644
--- a/frontend/refmark.icl
+++ b/frontend/refmark.icl
@@ -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
-- 
cgit v1.2.3