From b06fe403c8177185c1aa5fa2f4a5b0f5c6125bfe Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@shill.local>
Date: Thu, 6 Aug 2009 16:49:02 -0500
Subject: [PATCH] file-trees: load fix
---
extra/file-trees/file-trees.factor | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/extra/file-trees/file-trees.factor b/extra/file-trees/file-trees.factor
index b253ef0c96..cb6cbaf847 100644
--- a/extra/file-trees/file-trees.factor
+++ b/extra/file-trees/file-trees.factor
@@ -45,5 +45,5 @@ DEFER: (tree-insert)
: <dir-table> ( tree-model -- table )
<list*> [ node>> 1array ] >>quot
- [ selected-value>> [ file? not ] filter-model swap switch-models ]
- [ swap >>model ] bi ;
\ No newline at end of file
+ [ selected>> [ file? not ] filter-model swap switch-models ]
+ [ swap >>model ] bi ;