[svn:parrot] r29052 - trunk/languages/perl6/src/builtins

Author: pmichaud
Date: Fri Jul  4 06:11:51 2008
New Revision: 29052

Modified:
   trunk/languages/perl6/src/builtins/any-num.pir
   trunk/languages/perl6/src/builtins/math.pir

Log:
[rakudo]:  Refactor sqrt to be a method on Any.


Modified: trunk/languages/perl6/src/builtins/any-num.pir
==============================================================================
--- trunk/languages/perl6/src/builtins/any-num.pir	(original)
+++ trunk/languages/perl6/src/builtins/any-num.pir	Fri Jul  4 06:11:51 2008
@@ -19,7 +19,7 @@
 .namespace []
 .sub 'onload' :anon :init :load
     $P0 = get_hll_namespace ['Any']
-    '!EXPORT'('abs cis unpolar', 'from'=>$P0)
+    '!EXPORT'('abs cis sqrt unpolar', 'from'=>$P0)
 
     ##  pre-seed a random number generator
     $P0 = new 'Random'
@@ -75,6 +75,19 @@
     .return ($N0)
 .end
 
+
+=item sqrt()
+
+=cut
+
+.namespace ['Any']
+.sub 'sqrt' :method :multi(_)
+    $N0 = self
+    $N1 = sqrt $N0
+    .return ($N1)
+.end
+
+
 =item srand()
 
 =cut

Modified: trunk/languages/perl6/src/builtins/math.pir
==============================================================================
--- trunk/languages/perl6/src/builtins/math.pir	(original)
+++ trunk/languages/perl6/src/builtins/math.pir	Fri Jul  4 06:11:51 2008
@@ -91,24 +91,6 @@
 .end
 
 
-=item sqrt
-
- our Num     multi Num::sqrt ( Num  $x )
- our Complex multi Complex::sqrt ( Num  $x )
- our Complex multi Complex::sqrt ( Complex  $x )
- our Num     multi Math::Basic::sqrt ( Num $x )
-
-C<$x ** 0.5>
-
-=cut
-
-.sub 'sqrt' :multi(_)
-    .param num a
-    a = sqrt a
-    .return (a)
-.end
-
-
 =item truncate
 
  our Int multi Num::truncate ( Num $x )

• [svn:parrot] r29052 - trunk/languages/perl6/src/builtins by pmichaud