guile-commits
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Guile-commits] 01/03: Avoid deprecated statprof interface in test


From: Andy Wingo
Subject: [Guile-commits] 01/03: Avoid deprecated statprof interface in test
Date: Wed, 14 Sep 2016 09:28:05 +0000 (UTC)

wingo pushed a commit to branch master
in repository guile.

commit b914c518bdd95fb8fbb9a246198de09b72a77490
Author: Andy Wingo <address@hidden>
Date:   Wed Sep 14 11:06:33 2016 +0200

    Avoid deprecated statprof interface in test
    
    * test-suite/tests/statprof.test ("return values"): Avoid deprecated
      with-statprof.
---
 test-suite/tests/statprof.test |   11 ++++++-----
 1 file changed, 6 insertions(+), 5 deletions(-)

diff --git a/test-suite/tests/statprof.test b/test-suite/tests/statprof.test
index b799f58..8965a03 100644
--- a/test-suite/tests/statprof.test
+++ b/test-suite/tests/statprof.test
@@ -51,11 +51,12 @@
       (lambda ()
         (with-output-to-port (%make-void-port "w")
           (lambda ()
-            (with-statprof
-                (let loop ((i 10000))
-                  (if (zero? i)
-                      (values 42 77)
-                      (loop (1- i))))))))
+            (statprof
+             (lambda ()
+               (let loop ((i 10000))
+                 (if (zero? i)
+                     (values 42 77)
+                     (loop (1- i)))))))))
     list))
 
 (pass-if "statistical sample counts within expected range"



reply via email to

[Prev in Thread] Current Thread [Next in Thread]