From fb33ee300278227c3e2acbe7d4fa25dbbfa5a9eb Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Tue, 28 Jul 2009 06:49:09 -0500
Subject: [PATCH] classes.algebra: stack effect fix

---
 core/classes/algebra/algebra.factor | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/core/classes/algebra/algebra.factor b/core/classes/algebra/algebra.factor
index 3c39848d02..6d221c1380 100755
--- a/core/classes/algebra/algebra.factor
+++ b/core/classes/algebra/algebra.factor
@@ -106,7 +106,7 @@ PREDICATE: empty-union < anonymous-union members>> empty? ;
 
 PREDICATE: empty-intersection < anonymous-intersection participants>> empty? ;
 
-: (class<=) ( first second -- -1/0/1 )
+: (class<=) ( first second -- ? )
     2dup eq? [ 2drop t ] [
         2dup superclass<= [ 2drop t ] [
             [ normalize-class ] bi@ {