classes: use check-instance in a few places, to remove duplication.

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

diff --git a/core/classes/builtin/builtin.factor b/core/classes/builtin/builtin.factor
index 74c868a17a96482d73b10a912f6baa2d690ae8d5..7dd66988e2aa4ee81adbbf3528caf5d04f8a41ae 100644 (file)
--- a/core/classes/builtin/builtin.factor
+++ b/core/classes/builtin/builtin.factor
@@ -9,11 +9,6 @@ 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