1 ; Portions Copyright 2004 Sun Microsystems, Inc.
2 ; Portions Copyright 1999-2003 Language Technologies Institute,
3 ; Carnegie Mellon University.
4 ; All Rights Reserved. Use is subject to license terms.
6 ; See the file "license.terms" for information on usage and
7 ; redistribution of this file, and for a DISCLAIMER OF ALL
10 ; Dumps phone duration stats to stdout.
12 ; Expects duration_ph_info to be defined.
14 (define (dump_dur_stat)
15 (let ((dur_lines duration_ph_info))
17 (let ((dur_line (car dur_lines)))
18 (format t "%s %f %f\n"
22 (set! dur_lines (cdr dur_lines)))))