diff options
Diffstat (limited to 'test-suite/tests/future.test')
-rw-r--r-- | test-suite/tests/future.test | 18 |
1 files changed, 7 insertions, 11 deletions
diff --git a/test-suite/tests/future.test b/test-suite/tests/future.test index b8bacb2f0..a398aff37 100644 --- a/test-suite/tests/future.test +++ b/test-suite/tests/future.test @@ -2,7 +2,7 @@ ;;;; ;;;; Ludovic Courtès <ludo@gnu.org> ;;;; -;;;; Copyright (C) 2010, 2012 Free Software Foundation, Inc. +;;;; Copyright (C) 2010, 2012, 2013 Free Software Foundation, Inc. ;;;; ;;;; This library is free software; you can redistribute it and/or ;;;; modify it under the terms of the GNU Lesser General Public @@ -22,8 +22,7 @@ #:use-module (test-suite lib) #:use-module (ice-9 futures) #:use-module (srfi srfi-1) - #:use-module (srfi srfi-26) - #:use-module (system base compile)) + #:use-module (srfi srfi-26)) (define specific-exception-key (gensym)) @@ -98,11 +97,8 @@ (touch (future (1+ (touch (future (1+ (touch (future 0))))))))) (pass-if-equal "loop" (map - (iota 1000)) - ;; Compile to avoid stack overflows. - (compile '(let loop ((list (iota 1000))) - (if (null? list) - '() - (cons (- (car list)) - (touch (future (loop (cdr list))))))) - #:to 'value - #:env (current-module)))) + (let loop ((list (iota 1000))) + (if (null? list) + '() + (cons (- (car list)) + (touch (future (loop (cdr list))))))))) |