Fix listener-run-files

2009-03-29 16:28:04 -05:00 · 2009-03-29 16:28:04 -05:00 · d586d49cb6
parent 602fe353e8
commit d586d49cb6
1 changed files with 3 additions and 2 deletions
--- a/basis/ui/tools/listener/listener.factor
+++ b/basis/ui/tools/listener/listener.factor
@ -263,8 +263,9 @@ M: listener-operation invoke-command ( target command -- )

 : listener-run-files ( seq -- )
    [
-        [ \ listener-run-files ] dip
-        '[ _ [ run-file ] each ] call-listener
+        '[ _ [ run-file ] each ]
+        \ listener-run-files
+        call-listener
    ] unless-empty ;

 : com-end ( listener -- )