Renamed ShowDebug to Debug

libraries/WrapDebug/ShowDebug.dcl → libraries/WrapDebug/Debug.dcl

@@ -5,7 +5,7 @@
 	Ronny Wichers Schreur
 	ronny@cs.kun.nl
 */
-definition module ShowDebug
+definition module Debug
 
 :: DebugShowFunction a :== a -> [{#Char}]
 
@@ -17,7 +17,7 @@ debugAfter :: .a !(DebugShowFunction .a) !.b -> .b
 debugValue :: !(DebugShowFunction .a) !.a -> .a
 
 // generic show function
-debugShow :: [DebugShowOption] .a -> [{#Char}]
+debugShowWithOptions :: [DebugShowOption] .a -> [{#Char}]
 
 :: DebugShowOption 
 	=	DebugMaxDepth !Int			// default no limit

libraries/WrapDebug/ShowDebug.icl → libraries/WrapDebug/Debug.icl

@@ -5,7 +5,7 @@
 	Ronny Wichers Schreur
 	ronny@cs.kun.nl
 */
-implementation module ShowDebug
+implementation module Debug
 
 import StdEnv
 import Wrap, ShowWrapped
@@ -62,8 +62,8 @@ MaxInt
 (:-) a f
 	:== f a
 
-debugShow :: [DebugShowOption] .a -> [{#Char}]
-debugShow debugOptions debugValue 
+debugShowWithOptions :: [DebugShowOption] .a -> [{#Char}]
+debugShowWithOptions debugOptions debugValue 
 	=	debugValue
 	:-	wrapNode
 	:-	pruneWrappedNode maxDepth maxBreadth

libraries/WrapDebug/RWSDebug.icl

@@ -2,7 +2,7 @@ implementation module RWSDebug
 
 import Debug
 
-show x
+show
 	=	debugShowWithOptions [DebugMaxChars 80, DebugMaxDepth 5]
 
 (->>) :: !.a !.b -> .a