From 55b11bf36572cf6dec5d0ba0e57f57b7a385bc71 Mon Sep 17 00:00:00 2001 From: James Swaine Date: Tue, 10 Jul 2012 11:45:57 -0500 Subject: [PATCH] Fix arity mismatch error in timeline-events --- collects/racket/future/private/visualizer-data.rkt | 14 +++++++++----- 1 file changed, 9 insertions(+), 5 deletions(-) diff --git a/collects/racket/future/private/visualizer-data.rkt b/collects/racket/future/private/visualizer-data.rkt index 6e6ded8172..ea498974cf 100644 --- a/collects/racket/future/private/visualizer-data.rkt +++ b/collects/racket/future/private/visualizer-data.rkt @@ -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))