# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1497527801 -7200
# Node ID 3db3da9b3702c48eb47690555bb304e06d3b5717
# Parent  e017f9904c305f4f18dda70a574db505e94e708a
#REFACTORING by cg
class: ArithmeticValue
changed: #coerce:
default is to pass the work to the class side.

diff -r e017f9904c30 -r 3db3da9b3702 ArithmeticValue.st
--- a/ArithmeticValue.st	Thu Jun 15 10:07:35 2017 +0200
+++ b/ArithmeticValue.st	Thu Jun 15 13:56:41 2017 +0200
@@ -479,7 +479,9 @@
 coerce:aNumber
     "convert the argument aNumber into an instance of the receiver's class and return it."
 
-    ^ self subclassResponsibility
+    ^ self class coerce:aNumber
+
+    "Modified: / 15-06-2017 / 10:27:03 / cg"
 !
 
 generality