From c7242b8516f4b8a2047559bdf6ffe50adda7bb2c Mon Sep 17 00:00:00 2001
From: Sam Anklesaria <sam@Tintin.local>
Date: Sat, 9 May 2009 16:38:45 -0500
Subject: [PATCH] file-trees can't browse files

---
 extra/file-trees/file-trees.factor | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/extra/file-trees/file-trees.factor b/extra/file-trees/file-trees.factor
index 90916baa56..77952c8425 100644
--- a/extra/file-trees/file-trees.factor
+++ b/extra/file-trees/file-trees.factor
@@ -36,5 +36,5 @@ DEFER: (tree-insert)
 
 : <dir-table> ( tree-model -- table )
    <frp-list*> [ node>> 1array ] >>quot
-   [ selected-value>> <switch> ]
+   [ selected-value>> [ file? not ] <filter> <switch> ]
    [ swap >>model ] bi ;
\ No newline at end of file