From 4ffac018a1cb9c155907652037a591beb05e4c55 Mon Sep 17 00:00:00 2001 From: Slava Pestov Date: Fri, 9 May 2008 17:14:26 -0500 Subject: [PATCH] More robust threads test --- core/threads/threads-tests.factor | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/core/threads/threads-tests.factor b/core/threads/threads-tests.factor index 0e33ccd94c..122b7f1d59 100755 --- a/core/threads/threads-tests.factor +++ b/core/threads/threads-tests.factor @@ -4,7 +4,7 @@ words ; IN: threads.tests 3 "x" set -namespace [ [ yield 2 "x" set ] bind ] curry "Test" spawn drop +[ 2 "x" set ] "Test" spawn drop [ 2 ] [ yield "x" get ] unit-test [ ] [ [ flush ] "flush test" spawn drop flush ] unit-test [ ] [ [ "Errors, errors" throw ] "error test" spawn drop ] unit-test