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

Fix regression

db4
Slava Pestov 2008-04-19 21:43:45 -05:00
parent 6a3f908c41
commit 435e24f3b7
1 changed files with 2 additions and 3 deletions
core/inference/class

5
core/inference/class/class.factor
View File

@ -325,7 +325,6 @@ M: #call-label infer-classes-before ( #call-label -- )
[ set-value-class* ] 2each ; [ set-value-class* ] 2each ;
M: #return infer-classes-around M: #return infer-classes-around
dup call-next-method
nested-labels get length 0 > [ nested-labels get length 0 > [
dup param>> nested-labels get peek param>> eq? [ dup param>> nested-labels get peek param>> eq? [
[ ] [ node-input-classes ] [ in-d>> [ value-class* ] map ] tri [ ] [ node-input-classes ] [ in-d>> [ value-class* ] map ] tri
@ -334,8 +333,8 @@ M: #return infer-classes-around
[ in-d>> value-classes get extract-keys ] keep [ in-d>> value-classes get extract-keys ] keep
set-node-classes set-node-classes
] [ drop ] if ] [ drop ] if
] [ drop ] if ] [ call-next-method ] if
] [ drop ] if ; ] [ call-next-method ] if ;
M: object infer-classes-around M: object infer-classes-around
{ {