+;;;; memory-trace.scm
+
(define-module (scm memory-trace))
(use-modules (lily)
(ice-9 format))
(format graph-out "~a ~a\n" time mem)
(if stack
(begin
- (format stacks-out "~5a t = ~5a - delta-mem: ~15a - ~a \n" i
+ (format stacks-out "~5a t = ~5a - delta-mem: ~15a - ~a\n" i
time
(- mem last-mem) proc)
(do