file-trees can't browse files

2009-05-09 16:38:45 -05:00 · 2009-05-09 16:38:45 -05:00 · c7242b8516
parent b3c84be973
commit c7242b8516
1 changed files with 1 additions and 1 deletions
--- 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 ;