fix unit test regressions

diff --git a/library/test/gadgets.factor b/library/test/gadgets.factor
index b645804943ec2509e3383bc9be7f314af3dd2d0f..fad8ec4822ed5bc4ea6c1af43707f3a2fc148735 100644 (file)
--- a/library/test/gadgets.factor
+++ b/library/test/gadgets.factor
@@ -26,7 +26,7 @@ USING: gadgets kernel lists math namespaces test ;
     [
         1 x set
         1 y set
-        10 10 30 30 <rectangle> <gadget> shape>screen
+        10 10 30 30 <rectangle> <gadget> rect>screen
     ] with-scope
 ] unit-test
 [ t ] [

diff --git a/library/test/parsing-word.factor b/library/test/parsing-word.factor
index dd0ceccaef630328088d5b4fa16530c4523d1548..f4377e650ad23f06e673dd27cb3e320ff4a95f14 100644 (file)
--- a/library/test/parsing-word.factor
+++ b/library/test/parsing-word.factor
@@ -18,5 +18,6 @@ DEFER: foo
 
 ! Test > 1 ( ) comment; only the first one should be used.
 [ t ] [
-    "a" ": foo ( a ) ( b ) ;" parse drop word stack-effect str-contains?
+    "a" ": foo ( a ) ( b ) ;" parse drop word
+    "stack-effect" word-property str-contains?
 ] unit-test

diff --git a/library/threads.factor b/library/threads.factor
index b41ce766a0cd95f1e386dbf57d1e9194907d7b40..dc224c5c7f62e9f90c61c1cb6b1abf89103e39cc 100644 (file)
--- a/library/threads.factor
+++ b/library/threads.factor
@@ -2,7 +2,8 @@
 ! Copyright (C) 2005 Mackenzie Straight.
 ! See http://factor.sf.net/license.txt for BSD license.
 IN: threads
-USING: dlists io-internals kernel kernel-internals lists namespaces ;
+USING: io-internals kernel kernel-internals lists dlists
+namespaces ;
  
 ! Core of the multitasker. Used by io-internals.factor and
 ! in-thread.factor.