classes.builtin: Add the BUILTIN: keyword which lets builtin classes show up in sourc...

[factor.git] / core / classes / builtin / builtin.factor

diff --git a/core/classes/builtin/builtin.factor b/core/classes/builtin/builtin.factor
index ad07e007563b8e6ab690b3c075914d90548bb404..72178f62f2728bf4072c956e81a41e692098ea25 100644 (file)
--- a/core/classes/builtin/builtin.factor
+++ b/core/classes/builtin/builtin.factor
@@ -9,6 +9,11 @@ SYMBOL: builtins
 PREDICATE: builtin-class < class
     "metaclass" word-prop builtin-class eq? ;
 
+ERROR: not-a-builtin object ;
+
+: check-builtin ( class -- )
+    dup builtin-class? [ drop ] [ not-a-builtin ] if ;
+
 : class>type ( class -- n ) "type" word-prop ; foldable
 
 : type>class ( n -- class ) builtins get-global nth ; foldable