From 9e0db58c0fce43b39620ed5b77fb2b49020482dc Mon Sep 17 00:00:00 2001 From: Slava Pestov Date: Fri, 21 Nov 2008 02:26:08 -0600 Subject: [PATCH] Remove display-stack since its functionaly was merged into the listener --- extra/display-stack/display-stack.factor | 43 ------------------------ 1 file changed, 43 deletions(-) delete mode 100644 extra/display-stack/display-stack.factor diff --git a/extra/display-stack/display-stack.factor b/extra/display-stack/display-stack.factor deleted file mode 100644 index 98af43fec8..0000000000 --- a/extra/display-stack/display-stack.factor +++ /dev/null @@ -1,43 +0,0 @@ - -USING: kernel namespaces sequences math - listener io prettyprint sequences.lib bake bake.fry ; - -IN: display-stack - -! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! - -SYMBOL: watched-variables - -: watch-var ( sym -- ) watched-variables get push ; - -: watch-vars ( seq -- ) watched-variables get [ push ] curry each ; - -: unwatch-var ( sym -- ) watched-variables get delete ; - -: unwatch-vars ( seq -- ) watched-variables get [ delete ] curry each ; - -: print-watched-variables ( -- ) - watched-variables get length 0 > - [ - "----------" print - watched-variables get - watched-variables get [ unparse ] map longest length 2 + - '[ [ unparse ": " append , 32 pad-right write ] [ get . ] bi ] - each - - ] - when ; - -! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! - -: display-stack ( -- ) - V{ } clone watched-variables set - [ - print-watched-variables - "----------" print - datastack [ . ] each - "----------" print - retainstack reverse [ . ] each - ] - listener-hook set ; -