equal
deleted
inserted
replaced
|
1 "{ Encoding: utf8 }" |
|
2 |
1 " |
3 " |
2 Copyright (C) Original Authors (Kaehler, Scott Wallace and Dan Ingalls) |
4 Copyright (C) Original Authors (Kaehler, Scott Wallace and Dan Ingalls) |
3 Copyright (C) 2001 eXept Software AG |
5 Copyright (C) 2001 eXept Software AG |
4 |
6 |
5 Permission is hereby granted, free of charge, to any |
7 Permission is hereby granted, free of charge, to any |
1547 (data1 <= C) |
1549 (data1 <= C) |
1548 (data1 >= C) |
1550 (data1 >= C) |
1549 (data1 mod C)" |
1551 (data1 mod C)" |
1550 |
1552 |
1551 thisData size >= 2 ifFalse: [^ self]. "need 2 examples" |
1553 thisData size >= 2 ifFalse: [^ self]. "need 2 examples" |
1552 (thisData at: 1) size = 1 ifFalse: [^ self]. "only one arg, data1" |
1554 (thisData at: 1) size == 1 ifFalse: [^ self]. "only one arg, data1" |
1553 |
1555 |
1554 self const ifTrue: [^ self]. |
1556 self const ifTrue: [^ self]. |
1555 "/ self constEquiv ifTrue: [^ self]. " == ~= " |
1557 "/ self constEquiv ifTrue: [^ self]. " == ~= " |
1556 self constLessThan ifTrue: [^ self]. " <= and >= " |
1558 self constLessThan ifTrue: [^ self]. " <= and >= " |
1557 |
1559 |