Rename log-e to the more traditional (yet still unspec'd and likely t…

…o go away) ln.
rakudo · May 7, 2010 · 977fad6 · 977fad6
1 parent def9f9c
commit 977fad6
Show file tree

Hide file tree

Showing 4 changed files with 8 additions and 8 deletions.
diff --git a/src/core/Complex.pm b/src/core/Complex.pm
@@ -37,7 +37,7 @@ class Complex does Numeric is Cool {
         $base ** $exponent;
     }
 
-    method log-e() {
+    method ln() {
         Q:PIR {
             .local pmc self
             self = find_lex 'self'

diff --git a/src/core/Num.pm b/src/core/Num.pm
@@ -71,7 +71,7 @@ augment class Num does Real {
     #     pir::exp__Nn(self);
     # }
 
-    method log-e(Num $x:) {
+    method ln(Num $x:) {
         pir::ln__Nn($x);
     }
 

diff --git a/src/core/Numeric.pm b/src/core/Numeric.pm
@@ -13,13 +13,13 @@ role Numeric {
         fail "$.WHAT() needs a version of .exp";
     }
 
-    method log-e(Numeric $x:) {
-        note "$.WHAT() needs a version of .log-e";
-        fail "$.WHAT() needs a version of .log-e";
+    method ln(Numeric $x:) {
+        note "$.WHAT() needs a version of .ln";
+        fail "$.WHAT() needs a version of .ln";
     }
 
     method log(Numeric $x: Numeric $base = e) {
-        $x.log-e / $base.log-e;
+        $x.ln / $base.ln;
     }
 
     method log10(Numeric $x:) {

diff --git a/src/core/Real.pm b/src/core/Real.pm
@@ -14,8 +14,8 @@ role Real does Numeric {
         $base ** $exponent;
     }
 
-    method log-e(Real $x:) {
-        $x.Bridge.log-e;
+    method ln(Real $x:) {
+        $x.Bridge.ln;
     }
 
     method sign(Real $x:) {