From 7c921cd073e012775cf985da10e95a362a0ba972 Mon Sep 17 00:00:00 2001 From: Sam Anklesaria Date: Wed, 6 May 2009 21:39:13 -0500 Subject: [PATCH] file-trees: removed debugging leftovers --- extra/file-trees/file-trees.factor | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) diff --git a/extra/file-trees/file-trees.factor b/extra/file-trees/file-trees.factor index ccd2338061..52b1de7f96 100644 --- 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>> ; : ( {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 ] [ children>> ] bi* (tree-insert) ;