equal
deleted
inserted
replaced
5368 2 to:graphEntry size do:[:i| |
5368 2 to:graphEntry size do:[:i| |
5369 |eachChild eachChildGraph| |
5369 |eachChild eachChildGraph| |
5370 eachChild := graphEntry at:i. |
5370 eachChild := graphEntry at:i. |
5371 (backTrace includesIdentical:eachChild) ifTrue:[ |
5371 (backTrace includesIdentical:eachChild) ifTrue:[ |
5372 backTrace add:eachChild. |
5372 backTrace add:eachChild. |
5373 self error:('cycle in ordering: %1' bindWith:backTrace reversed) mayProceed:true. |
5373 ProceedableError |
|
5374 raiseRequestWith:backTrace reversed |
|
5375 errorString:('cycle in ordering: %1' bindWith:(backTrace reversed printStringWithSeparator:' -> ')). |
5374 ]. |
5376 ]. |
5375 eachChildGraph := graph at:eachChild. |
5377 eachChildGraph := graph at:eachChild. |
5376 checkBlock value:eachChildGraph value:(backTrace copyWith:eachChild). |
5378 checkBlock value:eachChildGraph value:(backTrace copyWith:eachChild). |
5377 ]. |
5379 ]. |
5378 ]. |
5380 ]. |
5873 "dispatch for visitor pattern; send #visitCollection:with: to aVisitor" |
5875 "dispatch for visitor pattern; send #visitCollection:with: to aVisitor" |
5874 |
5876 |
5875 ^ aVisitor visitCollection:self with:aParameter |
5877 ^ aVisitor visitCollection:self with:aParameter |
5876 ! ! |
5878 ! ! |
5877 |
5879 |
|
5880 |
5878 !Collection class methodsFor:'documentation'! |
5881 !Collection class methodsFor:'documentation'! |
5879 |
5882 |
5880 version |
5883 version |
5881 ^ '$Header$' |
5884 ^ '$Header$' |
5882 ! |
5885 ! |