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

'execute'
2008-08-31 21:24:58 -05:00 · 2008-08-31 21:24:58 -05:00 · 683993c947
parent df85ac4b5d
commit 683993c947
1 changed files with 7 additions and 1 deletions
--- 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 ;