Remove unused word

library/tools/listener.factor

@@ -1,5 +1,5 @@
-! Copyright (C) 2003, 2005 Slava Pestov.
-! See http://factor.sf.net/license.txt for BSD license.
+! Copyright (C) 2003, 2006 Slava Pestov.
+! See http://factorcode.org/license.txt for BSD license.
 IN: listener
 USING: errors hashtables io kernel math memory namespaces
 parser sequences strings styles vectors words ;
@@ -31,8 +31,8 @@ SYMBOL: eval-hook
     ] with-parser in set ;
 
 : listen ( -- )
-    listener-hook get call
     listener-prompt get write flush [
+        listener-hook get call
         read-multiline [ eval-hook get call ] [ drop bye ] if
     ] try ;
 

library/ui/tools/walker.factor

@@ -90,9 +90,6 @@ M: walker-gadget pref-dim*
 M: walker-gadget focusable-child* ( listener -- gadget )
     walker-gadget-input ;
 
-: walker-namestack ( walker -- ns )
-    [ global , walker-stream stdio associate , ] V{ } make ;
-
 : walker-continuation ( -- continuation )
     <empty-continuation>
     catchstack over set-continuation-catch