steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

file-trees: load fix

db4
Slava Pestov 2009-08-06 16:49:02 -05:00
parent 2e73038043
commit b06fe403c8
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
extra/file-trees/file-trees.factor
View File

@ -45,5 +45,5 @@ DEFER: (tree-insert)
: <dir-table> ( tree-model -- table ) : <dir-table> ( tree-model -- table )
<list*> [ node>> 1array ] >>quot <list*> [ node>> 1array ] >>quot
[ selected-value>> [ file? not ] filter-model swap switch-models ] [ selected>> [ file? not ] filter-model swap switch-models ]
[ swap >>model ] bi ; [ swap >>model ] bi ;