[patch] Generalize square to java.lang.Number

[Jamison Hope <jrh@theptrgroup.com>]

[-- Attachment #1: Type: text/plain, Size: 965 bytes --]

The attached patch generalizes square to java.lang.Number, so that it is
no more restrictive than *.

Before:

#|kawa:1|# (define a (java.lang.Integer[] 1 2 3 4 5))
#|kawa:2|# (map square a)
Argument #1 '1' to 'square' has wrong type (java.lang.Integer) (java.lang.Integer cannot be cast to gnu.math.Quantity)
	at atInteractiveLevel$2.run(stdin:2)
	at gnu.expr.ModuleExp.evalModule2(ModuleExp.java:317)
	at gnu.expr.ModuleExp.evalModule(ModuleExp.java:219)
	at kawa.Shell.run(Shell.java:291)
	at kawa.Shell.run(Shell.java:203)
	at kawa.Shell.run(Shell.java:184)
	at kawa.repl.main(repl.java:903)
Caused by: java.lang.ClassCastException: java.lang.Integer cannot be cast to gnu.math.Quantity
	... 7 more


After:

#|kawa:1|# (define a (java.lang.Integer[] 1 2 3 4 5))
#|kawa:2|# (map square a)
(1 4 9 16 25)
#|kawa:3|# (*:getClass (cadr (map square a)))
class java.lang.Integer


--
Jamison Hope
The PTR Group
www.theptrgroup.com



[-- Attachment #2: generalize-square.patch --]
[-- Type: application/octet-stream, Size: 869 bytes --]

Index: kawa/lib/ChangeLog
===================================================================
--- kawa/lib/ChangeLog	(revision 8365)
+++ kawa/lib/ChangeLog	(working copy)
@@ -1,3 +1,7 @@
+2015-03-12  Jamison Hope  <jrh@theptrgroup.com>
+
+	* numbers.scm (square): Generalize to java.lang.Number.
+
 2015-02-26  Per Bothner  <per@bothner.com>
 
 	* compile_map.scm (ListMapHelper): Rewrite result collect to
Index: kawa/lib/numbers.scm
===================================================================
--- kawa/lib/numbers.scm	(revision 8365)
+++ kawa/lib/numbers.scm	(working copy)
@@ -344,7 +344,7 @@
            (gnu.math.Quantity:make ((num:number):sqrt)
                                    ((num:unit):sqrt))))))
 
-(define (square x::quantity) ::quantity
+(define (square x::java.lang.Number) ::java.lang.Number
   (* x x))
 
 (define-procedure make-rectangular