From 7c157ea543b4e68cc8e5ea5b3166ded325822015 Mon Sep 17 00:00:00 2001 From: Andy Wingo Date: Tue, 28 Jun 2005 11:48:57 +0000 Subject: [PATCH] tests/network-clock.scm: Removed need for slib. Original commit message from CVS: 2005-06-28 Andy Wingo * tests/network-clock.scm: Removed need for slib. --- ChangeLog | 14 +++++++++----- tests/misc/network-clock.scm | 7 +++---- tests/network-clock.scm | 7 +++---- 3 files changed, 15 insertions(+), 13 deletions(-) diff --git a/ChangeLog b/ChangeLog index fa36ba7505..7c08763321 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,10 +1,7 @@ 2005-06-28 Andy Wingo - * tests/network-clock.scm (*timeout*, *send-loss*, *recv-loss*): - New parameters, simulate network packet loss. - - * tests/network-clock-utils.scm: Initialize the RNG. - + * tests/network-clock.scm: Removed need for slib. + 2005-06-28 Wim Taymans * gst/base/gstbasesink.c: (gst_basesink_set_pad_functions), @@ -19,6 +16,13 @@ * gst/gstqueue.c: (gst_queue_init): The deprecated pad loop function is removed now. +2005-06-28 Andy Wingo + + * tests/network-clock.scm (*timeout*, *send-loss*, *recv-loss*): + New parameters, simulate network packet loss. + + * tests/network-clock-utils.scm: Initialize the RNG. + 2005-06-28 Wim Taymans * gst/base/gstbasesink.c: (gst_basesink_preroll_queue_flush), diff --git a/tests/misc/network-clock.scm b/tests/misc/network-clock.scm index ca816a1c73..37aa23f51b 100755 --- a/tests/misc/network-clock.scm +++ b/tests/misc/network-clock.scm @@ -61,9 +61,8 @@ exec guile -l $0 -e main -- "$@" ;;; Code: -(use-modules (ice-9 slib) - (ice-9 popen)) -(require 'printf) +(use-modules (ice-9 popen)) + (load "network-clock-utils.scm") @@ -172,7 +171,7 @@ exec guile -l $0 -e main -- "$@" (apply stream-while (lambda (a r l n) (<= a total-time)) - (lambda (a r l n) (printf "%.3f %.3f %.3f %.3f\n" a r l n)) + (lambda (a r l n) (format #t "~a ~a ~a ~a\n" a r l n)) streams)))) (define (plot-simulation) diff --git a/tests/network-clock.scm b/tests/network-clock.scm index ca816a1c73..37aa23f51b 100755 --- a/tests/network-clock.scm +++ b/tests/network-clock.scm @@ -61,9 +61,8 @@ exec guile -l $0 -e main -- "$@" ;;; Code: -(use-modules (ice-9 slib) - (ice-9 popen)) -(require 'printf) +(use-modules (ice-9 popen)) + (load "network-clock-utils.scm") @@ -172,7 +171,7 @@ exec guile -l $0 -e main -- "$@" (apply stream-while (lambda (a r l n) (<= a total-time)) - (lambda (a r l n) (printf "%.3f %.3f %.3f %.3f\n" a r l n)) + (lambda (a r l n) (format #t "~a ~a ~a ~a\n" a r l n)) streams)))) (define (plot-simulation)