namespaces: adding a "with-global" word to replace "global [ ] bind".

[factor.git] / basis / debugger / threads / threads.factor

diff --git a/basis/debugger/threads/threads.factor b/basis/debugger/threads/threads.factor
index f487c5e01300aada39590b2562ccc2b236208140..3f5a074b25325f10181af9f2e49fe38b122373e9 100644 (file)
--- a/basis/debugger/threads/threads.factor
+++ b/basis/debugger/threads/threads.factor
@@ -15,12 +15,12 @@ IN: debugger.threads
 ! ( error thread -- )
 [
     dup initial-thread get-global eq? [ die ] [
-        global [
+        [
             error-in-thread. nl
             print-error nl
             :c
             flush
-        ] bind
+        ] with-global
         stop
     ] if
 ] thread-error-hook set-global