classes.algebra: stack effect fix

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