Fix arity mismatch error in timeline-events

This commit is contained in:
James Swaine 2012-07-10 11:45:57 -05:00
parent a190fcb0db
commit 55b11bf365

View File

@ -127,18 +127,22 @@
(define (relative-time trace abs-time)
(- abs-time (trace-start-time trace)))
;Gets log events for an execution timeline
;;timeline-events : (listof indexed-future-event)
(define (timeline-events)
;;timeline-events/private : integer -> (listof indexed-future-event)
(define (timeline-events/private index)
(let ([index 0]
[info (sync/timeout 0 recv)])
(if info
(let ([v (vector-ref info 2)])
(if (future-event? v)
(cons (indexed-future-event index v) (timeline-events (add1 index)))
(timeline-events index)))
(cons (indexed-future-event index v) (timeline-events/private (add1 index)))
(timeline-events/private index)))
'())))
;Gets log events for an execution timeline
;;timeline-events : (listof indexed-future-event)
(define (timeline-events)
(timeline-events/private 0))
;Produces a vector of vectors, where each inner vector contains
;all the log output messages for a specific process
;;organize-output : (listof indexed-future-event) -> (vectorof (vectorof future-event))