steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
core/classes/algebra/algebra.factor
View File

@ -106,7 +106,7 @@ PREDICATE: empty-union < anonymous-union members>> empty? ;
PREDICATE: empty-intersection < anonymous-intersection participants>> empty? ; PREDICATE: empty-intersection < anonymous-intersection participants>> empty? ;
: (class<=) ( first second -- -1/0/1 ) : (class<=) ( first second -- ? )
2dup eq? [ 2drop t ] [ 2dup eq? [ 2drop t ] [
2dup superclass<= [ 2drop t ] [ 2dup superclass<= [ 2drop t ] [
[ normalize-class ] bi@ { [ normalize-class ] bi@ {