Commit 7c65f197 authored by Diederik van Arkel's avatar Diederik van Arkel
Browse files

improve mac debug utils;

parent 4bdf0984
......@@ -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"
......
definition module nodebug
trace_n` msg a :== a
DebugStr` msg a :== a
implementation module nodebug
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