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

obj.pring: Quick workaround for vocab-browser

db4
Eduardo Cavazos 2008-09-03 02:17:28 -05:00
parent a4e77124af
commit a24645fbca
1 changed files with 11 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
extra/obj/print/print.factor
View File

@ -8,8 +8,19 @@ IN: obj.print
: write-wrapped ( string -- ) H{ { wrap-margin 500 } } [ write ] with-nesting ; : write-wrapped ( string -- ) H{ { wrap-margin 500 } } [ write ] with-nesting ;
! : print-elt ( val -- )
! {
! { [ string? ] [ write-wrapped ] }
! { [ array? ] [ [ . ] each ] }
! { [ drop t ] [ . ] }
! }
! 1cond ;
USING: accessors vocabs help.markup ;
: print-elt ( val -- ) : print-elt ( val -- )
{ {
{ [ vocab? ] [ [ name>> ] [ ] bi write-object ] }
{ [ string? ] [ write-wrapped ] } { [ string? ] [ write-wrapped ] }
{ [ array? ] [ [ . ] each ] } { [ array? ] [ [ . ] each ] }
{ [ drop t ] [ . ] } { [ drop t ] [ . ] }