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