summaryrefslogtreecommitdiff
path: root/test-suite/tests/future.test
diff options
context:
space:
mode:
Diffstat (limited to 'test-suite/tests/future.test')
-rw-r--r--test-suite/tests/future.test18
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)))))))))