From a24645fbca6043ad93c000a8bbb52bf6c0c9cd43 Mon Sep 17 00:00:00 2001
From: Eduardo Cavazos <dharmatech@finkelstein.stackeffects.info>
Date: Wed, 3 Sep 2008 02:17:28 -0500
Subject: [PATCH] obj.pring: Quick workaround for vocab-browser

---
 extra/obj/print/print.factor | 11 +++++++++++
 1 file changed, 11 insertions(+)

diff --git a/extra/obj/print/print.factor b/extra/obj/print/print.factor
index 066f24cb6a..000e161387 100644
--- a/extra/obj/print/print.factor
+++ b/extra/obj/print/print.factor
@@ -8,8 +8,19 @@ IN: obj.print
 
 : 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 -- )
   {
+    { [ vocab?  ] [ [ name>> ] [ ] bi write-object ] }
     { [ string? ] [ write-wrapped ] }
     { [ array?  ] [ [ . ] each    ] }
     { [ drop t  ] [ . ] }