improve mac debug utils;

CleanIDE/Mac/dodebug.icl

@@ -21,13 +21,13 @@ abort`` a b = abort (toString b)
 trace_l :: ![a] .b -> .b | toString a
 trace_l [] e = e
 trace_l [h:t] e
-	#! e = trace_n h e
+	#! e = trace_n` h e
 	= trace_l t e
 
 trace_rgn :: !{#.Char} !Int -> Int
 trace_rgn txt rgn
 	# (isRect,rct,_)= osgetrgnbox rgn OSNewToolbox
-	# rgn			= trace_n (txt+++xxx rct isRect) rgn
+	# rgn			= trace_n` (txt+++xxx rct isRect) rgn
 	= rgn
 where
 	xxx {rleft,rtop,rright,rbottom} isRect =
@@ -39,7 +39,7 @@ where
 
 trace_col :: !{#.Char} !Colour -> Colour
 trace_col txt col
-	= trace_n (txt+++xxx col) col
+	= trace_n` (txt+++xxx col) col
 where
 	xxx colour = case colour of
 							Black	-> "BlackColor"

CleanIDE/Mac/nodebug.dcl

+definition module nodebug
+
+trace_n` msg a :== a
+DebugStr` msg a :== a

CleanIDE/Mac/nodebug.icl

+implementation module nodebug
+