[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"