obj.view: Add workaround so that 'article-content' method doesn't call

'execute'

diff --git a/extra/obj/view/view.factor b/extra/obj/view/view.factor
index 6b3249f0572bf3f789fd195783daf180a6774eeb..cf5ca337455ee346b259f9e6c36615650c070a77 100644 (file)
--- 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