Author: pmichaud
Date: Tue Aug 12 00:07:39 2008
New Revision: 30180
Modified:
trunk/languages/perl6/src/classes/Complex.pir
Log:
[rakudo]: Remove use of exp, ln, and sqrt pseudo-ops (removed in r30176)
* spectest_regression passes again
Modified: trunk/languages/perl6/src/classes/Complex.pir
==============================================================================
--- trunk/languages/perl6/src/classes/Complex.pir (original)
+++ trunk/languages/perl6/src/classes/Complex.pir Tue Aug 12 00:07:39 2008
@@ -26,7 +26,7 @@
p6meta.'register'('Complex', 'parent'=>complexproto,
'protoobject'=>complexproto)
$P0 = get_hll_namespace ['Perl6Complex']
- '!EXPORT'('exp log polar sqrt', 'from'=>$P0)
+ '!EXPORT'('log polar', 'from'=>$P0)
.end
=item perl()
@@ -50,17 +50,21 @@
=cut
-.sub 'exp' :method :multi('Complex')
- $P0 = exp self
+.namespace []
+.sub 'exp' :multi('Complex')
+ .param pmc x
+ $P0 = x.'exp'()
.return ($P0)
.end
+
=item log
=cut
+.namespace ['Perl6Complex']
.sub 'log' :method :multi('Complex')
- $P0 = ln self
+ $P0 = self.'ln'()
.return ($P0)
.end
@@ -68,6 +72,7 @@
=cut
+.namespace ['Perl6Complex']
.sub 'polar' :method :multi('Complex')
.local num real, imag, magnitude, angle
real = self[0]
@@ -84,13 +89,14 @@
=cut
-.sub 'sqrt' :method :multi('Complex')
- $P0 = sqrt self
+.namespace []
+.sub 'sqrt' :multi('Complex')
+ .param pmc x
+ $P0 = x.'sqrt'()
.return ($P0)
.end
-
=back
=head2 Operators
