From 6984c143e9a8ddea73fc67aa4afd4ac561bba84a Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Wed, 25 Mar 2009 22:54:31 -0500
Subject: [PATCH] Fix hang when running ui tests

---
 basis/ui/gadgets/gadgets.factor | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

diff --git a/basis/ui/gadgets/gadgets.factor b/basis/ui/gadgets/gadgets.factor
index a4bedf1ef7..adcfdfb00d 100644
--- a/basis/ui/gadgets/gadgets.factor
+++ b/basis/ui/gadgets/gadgets.factor
@@ -135,9 +135,7 @@ SYMBOL: ui-notify-flag
 
 : forget-pref-dim ( gadget -- ) f >>pref-dim drop ;
 
-: ui-state ( symbol -- value ) get [ "UI not running" throw ] unless* ;
-
-: layout-queue ( -- queue ) \ layout-queue ui-state ;
+: layout-queue ( -- queue ) \ layout-queue get ;
 
 : layout-later ( gadget -- )
     #! When unit testing gadgets without the UI running, the
@@ -216,7 +214,8 @@ M: gadget ungraft* drop ;
 
 <PRIVATE
 
-: graft-queue ( -- dlist ) \ graft-queue ui-state ;
+: graft-queue ( -- dlist )
+    \ graft-queue get [ "UI not running" throw ] unless* ;
 
 : unqueue-graft ( gadget -- )
     [ graft-node>> graft-queue delete-node ]