From 5ff2c2e2bf7ff86148db26ea4dbba20b3ef5aba3 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Mon, 27 Apr 2009 14:10:12 -0500
Subject: [PATCH] Don't compile predicate engines since there's no gain

---
 basis/compiler/compiler.factor | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/basis/compiler/compiler.factor b/basis/compiler/compiler.factor
index d86c9234d1..e8a38b147e 100644
--- a/basis/compiler/compiler.factor
+++ b/basis/compiler/compiler.factor
@@ -106,7 +106,11 @@ M: predicate-engine-word no-compile? "owner-generic" word-prop no-compile? ;
     ] if ;
 
 : optimize? ( word -- ? )
-    { [ contains-breakpoints? ] [ single-generic? ] } 1|| not ;
+    {
+        [ predicate-engine-word? ]
+        [ contains-breakpoints? ]
+        [ single-generic? ]
+    } 1|| not ;
 
 : frontend ( word -- nodes )
     #! If the word contains breakpoints, don't optimize it, since