Add Debug.Trace

src/libraries/OS-Independent/Debug/Trace.dcl

+definition module Debug.Trace
+
+/**
+ * This module provides functions to trace values to output channels. Other
+ * useful functions can be found in StdEnv's {{StdDebug}}.
+ */
+
+/**
+ * Prints the value to stdout and returns it. Other than the functions in
+ * {{StdDebug}}, this does not require {{`toString`}}.
+ */
+trace_stdout :: !.a -> .a

src/libraries/OS-Independent/Debug/Trace.icl

+implementation module Debug.Trace
+
+trace_stdout :: !.a -> .a
+trace_stdout _ = code {
+	push_a 0
+	.d 1 0
+	jsr _print_graph
+	.o 0 0
+}

tests/linux64/test.icl

@@ -122,6 +122,7 @@ import qualified Database.SQL.SQLite
 import qualified Database.SQL._MySQL
 import qualified Database.SQL._SQLite
 import qualified Debug.Performance
+import qualified Debug.Trace
 import qualified Graphics.Layout
 import qualified Graphics.Scalable.Image
 import qualified Graphics.Scalable.Internal.Image`