threads: update test

diff --git a/basis/threads/threads-tests.factor b/basis/threads/threads-tests.factor
index d5e2f806b6e98f7c3bf6489c4e2c1ea633430e30..35ffb3e4c30358f6976a59b93707db85036efe5d 100644 (file)
--- 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