--- a/ArithmeticValue.st Mon Dec 08 13:33:41 2014 +0100
+++ b/ArithmeticValue.st Mon Dec 08 16:08:00 2014 +0100
@@ -1219,7 +1219,8 @@
even
"return true if the receiver is divisible by 2"
- ^ self truncated asInteger even
+ ^ self error:'non integer receiver'
+ "/ ^ self truncated asInteger even
!
isComplex
@@ -1407,11 +1408,11 @@
!ArithmeticValue class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/ArithmeticValue.st,v 1.95 2014-11-11 14:26:04 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/ArithmeticValue.st,v 1.96 2014-12-08 15:08:00 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libbasic/ArithmeticValue.st,v 1.95 2014-11-11 14:26:04 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/ArithmeticValue.st,v 1.96 2014-12-08 15:08:00 cg Exp $'
! !