classes.algebra: stack effect fix

db4
Slava Pestov 2009-07-28 06:49:09 -05:00
parent 7c5e2f2933
commit fb33ee3002
1 changed files with 1 additions and 1 deletions

View File

@ -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@ {