frontend/RWSDebug.icl


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18

implementation module RWSDebug

import Debug

show x
	=	debugShowWithOptions [DebugMaxChars 80, DebugMaxDepth 5] x

(->>) :: !.a !.b -> .a
(->>) value debugValue
	=	debugAfter debugValue show value

(<<-) :: .a !.b -> .a
(<<-) value debugValue
	=	debugBefore debugValue show value

<<->> :: !.a -> .a
<<->> value
	=	debugValue show value