From: Andy Wingo <wingo@pobox.com>
Date: Tue, 28 Jun 2005 11:48:57 +0000 (+0000)
Subject: tests/network-clock.scm: Removed need for slib.
X-Git-Tag: RELEASE-0_9_2~346
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=7c157ea543b4e68cc8e5ea5b3166ded325822015;p=platform%2Fupstream%2Fgstreamer.git

tests/network-clock.scm: Removed need for slib.

Original commit message from CVS:
2005-06-28  Andy Wingo  <wingo@pobox.com>

* tests/network-clock.scm: Removed need for slib.
---

diff --git a/ChangeLog b/ChangeLog
index fa36ba7..7c08763 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,10 +1,7 @@
 2005-06-28  Andy Wingo  <wingo@pobox.com>
 
-	* 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  <wim@fluendo.com>
 
 	* 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  <wingo@pobox.com>
+
+	* 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  <wim@fluendo.com>
 
 	* gst/base/gstbasesink.c: (gst_basesink_preroll_queue_flush),
diff --git a/tests/misc/network-clock.scm b/tests/misc/network-clock.scm
index ca816a1..37aa23f 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 ca816a1..37aa23f 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)