From 6661f8fe0ca624163a769d5e35bdd092de3d036b Mon Sep 17 00:00:00 2001
From: Joe Groff <arcata@gmail.com>
Date: Wed, 14 Dec 2011 13:45:53 -0800
Subject: [PATCH] threads: update test

---
 basis/threads/threads-tests.factor | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/basis/threads/threads-tests.factor b/basis/threads/threads-tests.factor
index d5e2f806b6..35ffb3e4c3 100644
--- a/basis/threads/threads-tests.factor
+++ b/basis/threads/threads-tests.factor
@@ -68,12 +68,12 @@ yield
 ! The unit test asserts that the callstack is empty from the
 ! quotation passed to start-context-and-delete.
 
-[ { } ] [
+[ 3 ] [
     <promise> [
         '[
             _ [
-                callstack swap fulfill stop
+                [ callstack swap fulfill stop ] start-context-and-delete
             ] start-context-and-delete
         ] in-thread
-    ] [ ?promise callstack>array ] bi
+    ] [ ?promise callstack>array length ] bi
 ] unit-test