steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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

'execute'
db4
Eduardo Cavazos 2008-08-31 21:24:58 -05:00
parent df85ac4b5d
commit 683993c947
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
extra/obj/view/view.factor
View File

@ -40,7 +40,13 @@ PREDICATE: obj-list < word \ objects = ;
M: obj-list article-title ( objects -- title ) drop "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 ) M: obj-list article-content ( objects -- title )
execute drop
objects
[ [ type -> ] [ ] bi 2array ] map [ [ type -> ] [ ] bi 2array ] map
{ $tab , } bake ; { $tab , } bake ;