@@ -634,11 +634,10 @@ ((< (tdb:step-get-event_time a)(tdb:step-get-event_time b)) #t) ((eq? (tdb:step-get-event_time a)(tdb:step-get-event_time b)) (< (tdb:step-get-id a) (tdb:step-get-id b))) (else #f))))) res)) - ;; ;; (define (tests:get-compressed-steps run-id test-id) (let* ((steps-data (rmt:get-steps-for-test run-id test-id))