Builtin classes are now recognized with a predicate

TODO.FACTOR.txt

@@ -62,6 +62,7 @@
 
 + prettyprinter:
 
+- array with POSTPONE: in it: printed wrong
 - clean it up
 - if we're printing a block on multiple lines, break at some words like
   set off on % # , ... and assembler opcodes

library/generic/classes.factor

@@ -7,6 +7,8 @@ vectors math parser ;
 
 PREDICATE: word class ( obj -- ? ) "class" word-prop ;
 
+PREDICATE: word builtin ( obj -- ? ) builtins get memq? ;
+
 SYMBOL: typemap
 SYMBOL: class<map
 SYMBOL: builtins

library/tools/definitions.factor

@@ -118,7 +118,7 @@ M: tuple-class see-class*
 M: word see-class* drop ;
 
 : see-class ( word -- )
-    dup class? [
+    dup class? over builtin? not [
         terpri [ see-class* ] with-pprint terpri
     ] [
         drop