Builtin classes are now recognized with a predicate

diff --git a/TODO.FACTOR.txt b/TODO.FACTOR.txt
index 3efdb105bc25a9e1c372dd4aa56343a9a858e2b1..188913696aa843be610fa261e66ed16e9f2f6b57 100644 (file)
--- a/TODO.FACTOR.txt
+++ b/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

diff --git a/library/generic/classes.factor b/library/generic/classes.factor
index 8ad8726b777b88ac812de93f9b338d8f524f1c5d..15a84f7461acd84a331da486cc75ef0f778b7046 100644 (file)
--- a/library/generic/classes.factor
+++ b/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

diff --git a/library/tools/definitions.factor b/library/tools/definitions.factor
index 6f93b1f0d131ecc376b74e0cac2e448e0c805e1a..22c19a618c07b1a8112e095f7dce5df7a8892fa1 100644 (file)
--- a/library/tools/definitions.factor
+++ b/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