equal
deleted
inserted
replaced
392 ^ self perform:aSymbol with:(self coerce:aNumber) |
392 ^ self perform:aSymbol with:(self coerce:aNumber) |
393 ]. |
393 ]. |
394 (myGenerality < otherGenerality) ifTrue:[ |
394 (myGenerality < otherGenerality) ifTrue:[ |
395 ^ (aNumber coerce:self) perform:aSymbol with:aNumber |
395 ^ (aNumber coerce:self) perform:aSymbol with:aNumber |
396 ]. |
396 ]. |
397 self error:'retry:coercing: oops - same generality' |
397 ObjectMemory printStackBacktrace. |
|
398 self error:'retry:coercing: oops - same generality; retry should not happen' |
398 |
399 |
399 "Modified: 5.11.1996 / 15:03:38 / cg" |
400 "Modified: 5.11.1996 / 15:03:38 / cg" |
400 ! ! |
401 ! ! |
401 |
402 |
402 !ArithmeticValue methodsFor:'converting'! |
403 !ArithmeticValue methodsFor:'converting'! |
1289 ! ! |
1290 ! ! |
1290 |
1291 |
1291 !ArithmeticValue class methodsFor:'documentation'! |
1292 !ArithmeticValue class methodsFor:'documentation'! |
1292 |
1293 |
1293 version |
1294 version |
1294 ^ '$Header: /cvs/stx/stx/libbasic/ArithmeticValue.st,v 1.74 2007-01-12 18:22:21 cg Exp $' |
1295 ^ '$Header: /cvs/stx/stx/libbasic/ArithmeticValue.st,v 1.75 2007-01-12 21:11:28 cg Exp $' |
1295 ! ! |
1296 ! ! |
1296 |
1297 |
1297 ArithmeticValue initialize! |
1298 ArithmeticValue initialize! |