From 683993c94786155e363bd70b3e6ec17b60c2698f Mon Sep 17 00:00:00 2001
From: Eduardo Cavazos <dharmatech@finkelstein.stackeffects.info>
Date: Sun, 31 Aug 2008 21:24:58 -0500
Subject: [PATCH] obj.view: Add workaround so that 'article-content' method
 doesn't call 'execute'

---
 extra/obj/view/view.factor | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/extra/obj/view/view.factor b/extra/obj/view/view.factor
index 6b3249f057..cf5ca33745 100644
--- a/extra/obj/view/view.factor
+++ b/extra/obj/view/view.factor
@@ -40,7 +40,13 @@ PREDICATE: obj-list < word \ objects = ;
 
 M: obj-list article-title ( objects -- title ) drop "Objects" ;
 
+! M: obj-list article-content ( objects -- title )
+!    execute
+!    [ [ type -> ] [ ] bi 2array ] map
+!    { $tab , } bake ;
+
 M: obj-list article-content ( objects -- title )
-   execute
+   drop
+   objects
    [ [ type -> ] [ ] bi 2array ] map
    { $tab , } bake ;
\ No newline at end of file