file-trees: removed debugging leftovers

diff --git a/extra/file-trees/file-trees.factor b/extra/file-trees/file-trees.factor
index ccd2338061ab9d22d163d3081d093eaea7381960..52b1de7f96df803309085c7a215bcc0ba9666664 100644 (file)
--- a/extra/file-trees/file-trees.factor
+++ b/extra/file-trees/file-trees.factor
@@ -1,6 +1,6 @@
 USING: accessors arrays delegate delegate.protocols
 io.pathnames kernel locals models.arrow namespaces prettyprint sequences
-ui.frp vectors tools.continuations make ;
+ui.frp vectors make ;
 IN: file-trees
 
 TUPLE: walkable-vector vector father ;
@@ -15,8 +15,6 @@ CONSULT: sequence-protocol tree children>> ;
 : <dir-tree> ( {start,comment} -- tree ) first2 walkable-vector new vector new >>vector
    [ tree boa dup children>> ] [ ".." -rot tree boa ] 2bi swap (>>father) ;
 
-! If this was added to all grandchildren
-
 DEFER: (tree-insert)
 
 : tree-insert ( path tree -- ) [ unclip <dir-tree> ] [ children>> ] bi* (tree-insert) ;