From 3cc21d7995313782f6def1789ca0150e95c8363f Mon Sep 17 00:00:00 2001
From: Christian Persch <chpe@gnome.org>
Date: Thu, 24 Nov 2011 23:10:21 +0100
Subject: Add a deprecated alias for $expt

* module/ice-9/deprecated.scm: Add alias for $expt. $expt was removed
  in commit 6fc4d0124d633d1b3ddc5af82967f23bd17556f8 but no deprecated
  alias was added in ad79736c68a803a59814fbfc0cb4b092c2b4cddf like for
  all the other deprecated $sin, $cos, ... functions.
---
 module/ice-9/deprecated.scm | 5 +++++
 1 file changed, 5 insertions(+)

(limited to 'module/ice-9/deprecated.scm')

diff --git a/module/ice-9/deprecated.scm b/module/ice-9/deprecated.scm
index f4ae2e365..4628bab98 100644
--- a/module/ice-9/deprecated.scm
+++ b/module/ice-9/deprecated.scm
@@ -26,6 +26,7 @@
             $sqrt
             $abs
             $exp
+            $expt
             $log
             $sin
             $cos
@@ -300,6 +301,10 @@
   (issue-deprecation-warning
    "`$exp' is deprecated.  Use `exp' instead.")
   (exp z))
+(define ($expt z1 z2)
+  (issue-deprecation-warning
+   "`$expt' is deprecated.  Use `expt' instead.")
+  (expt z1 z2))
 (define ($log z)
   (issue-deprecation-warning
    "`$log' is deprecated.  Use `log' instead.")
-- 
cgit v1.2.3