Fix bogus f variable in global namespace

2008-03-16 02:44:17 -05:00 · 2008-03-16 02:44:17 -05:00 · bc71849bf6
parent ec698b7f53
commit bc71849bf6
2 changed files with 2 additions and 2 deletions
--- a/core/threads/threads-tests.factor
+++ b/core/threads/threads-tests.factor
@ -14,3 +14,5 @@ yield
 [ 3 ] [
    [ 3 swap resume-with ] "Test suspend" suspend
 ] unit-test
+
+[ f ] [ f get-global ] unit-test
--- a/core/threads/threads.factor
+++ b/core/threads/threads.factor
@ -32,8 +32,6 @@ mailbox variables sleep-entry ;

 : threads 41 getenv ;

-threads global [ H{ } assoc-like ] change-at
-
 : thread ( id -- thread ) threads at ;

 : thread-registered? ( thread -- ? )