From 68c9b22cefa1a349a794d28f40bbbb0d76b4b447 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Sat, 11 Oct 2008 14:08:00 -0500
Subject: [PATCH] Don't need known-tag templates any more

---
 basis/compiler/cfg/stacks/stacks.factor       | 2 --
 basis/compiler/cfg/templates/templates.factor | 6 +-----
 2 files changed, 1 insertion(+), 7 deletions(-)

diff --git a/basis/compiler/cfg/stacks/stacks.factor b/basis/compiler/cfg/stacks/stacks.factor
index 3da0281298..39d8109b05 100755
--- a/basis/compiler/cfg/stacks/stacks.factor
+++ b/basis/compiler/cfg/stacks/stacks.factor
@@ -9,8 +9,6 @@ IN: compiler.cfg.stacks
 
 ! Converting stack operations into register operations, while
 ! doing a bit of optimization along the way.
-SYMBOL: known-tag
-
 PREDICATE: small-slot < integer cells small-enough? ;
 
 PREDICATE: small-tagged < integer tag-fixnum small-enough? ;
diff --git a/basis/compiler/cfg/templates/templates.factor b/basis/compiler/cfg/templates/templates.factor
index 0e8f49676c..33c0efae55 100644
--- a/basis/compiler/cfg/templates/templates.factor
+++ b/basis/compiler/cfg/templates/templates.factor
@@ -73,11 +73,7 @@ TUPLE: template input output scratch clobber gc ;
     } cond ;
 
 : class-matches? ( actual expected -- ? )
-    {
-        { f [ drop t ] }
-        { known-tag [ dup [ class-tag >boolean ] when ] }
-        [ class<= ]
-    } case ;
+    dup [ class<= ] [ 2drop t ] if ;
 
 : spec-matches? ( value spec -- ? )
     2dup first value-matches?