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 (file)
--- 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 (executable)
--- 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 (executable)
--- 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)