9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
|
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
|
-
-
-
-
-
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
|
runs:process-expanded-tests
)</verbatim>
# Patch trace to emit a little info on where the function was called
<verbatim>
chicken-install -r trace
cd trace
patch -p0 <<EOF
> *** trace.scm 2014-11-26 09:29:50.000000000 -0700
> --- ../../trace/trace.scm 2014-11-25 21:12:41.000000000 -0700
> ***************
> *** 61,66 ****
> --- 61,68 ----
> (trace-indent)
> (set! *trace-indent-level* (fx+ 1 *trace-indent-level*))
> (write (cons name args) port)
> + (write ", Called from: " port)
> + (write (conc (car (reverse (get-call-chain)))))
> (write-char #\newline port)
> (flush-output port) ) )
> EOF
*** trace.scm 2014-11-26 09:29:50.000000000 -0700
--- ../../trace/trace.scm 2014-11-25 21:12:41.000000000 -0700
***************
*** 61,66 ****
--- 61,68 ----
(trace-indent)
(set! *trace-indent-level* (fx+ 1 *trace-indent-level*))
(write (cons name args) port)
+ (write ", Called from: " port)
+ (write (conc (car (reverse (get-call-chain)))))
(write-char #\newline port)
(flush-output port) ) )
EOF
chicken-install
</verbatim>
# Run your megatest runs and dig through the various logs :)
|