Get green threads working on Windows

[factor.git] / basis / threads / threads-tests.factor

diff --git a/basis/threads/threads-tests.factor b/basis/threads/threads-tests.factor
index 742ecaa1f778ae5731c16455f637f06b817e2734..01578d4e64a8767e49918de6d1d81b1d46496874 100644 (file)
--- a/basis/threads/threads-tests.factor
+++ b/basis/threads/threads-tests.factor
@@ -56,3 +56,6 @@ yield
 [ "x" tget "p" get fulfill ] in-thread
 
 [ f ] [ "p" get ?promise ] unit-test
+
+! Test system traps inside threads
+[ ] [ [ dup ] in-thread yield ] unit-test