[Guile-commits] GNU Guile branch, stable-2.0, updated. v2.0.1-54-gd147fe2

[Andy Wingo]

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "GNU Guile".

http://git.savannah.gnu.org/cgit/guile.git/commit/?id=d147fe2e68c93fe5c4ae47da6749e39edfa06e55

The branch, stable-2.0 has been updated
       via  d147fe2e68c93fe5c4ae47da6749e39edfa06e55 (commit)
      from  8f6a4b248b12db2c56ab29e909ba1441aa8f512d (commit)

Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.

- Log -----------------------------------------------------------------
commit d147fe2e68c93fe5c4ae47da6749e39edfa06e55
Author: Andy Wingo <address@hidden>
Date:   Thu May 12 13:07:19 2011 +0200

    all deprecated routines emit warnings
    
    * module/ice-9/deprecated.scm (substring-move-left!)
      (substring-move-right!, dynamic-maybe-call, dynamic-maybe-link)
      (try-module-linked, try-module-dynamic-link)
      ($asinh, $acosh, $atanh, $sqrt, $abs, $exp, $log, $sin, $cos)
      ($tan, $asin, $acos, $atan, $sinh, $cosh, $tanh)
      (process-define-module): Add deprecation warnings.

-----------------------------------------------------------------------

Summary of changes:
 module/ice-9/deprecated.scm |  123 +++++++++++++++++++++++++++++++++----------
 1 files changed, 94 insertions(+), 29 deletions(-)

diff --git a/module/ice-9/deprecated.scm b/module/ice-9/deprecated.scm
index d6dd837..f4ae2e3 100644
--- a/module/ice-9/deprecated.scm
+++ b/module/ice-9/deprecated.scm
@@ -1,4 +1,4 @@
-;;;; Copyright (C) 2003, 2005, 2006, 2009, 2010 Free Software Foundation, Inc.
+;;;; Copyright (C) 2003, 2005, 2006, 2009, 2010, 2011 Free Software 
Foundation, Inc.
 ;;;;
 ;;;; This library is free software; you can redistribute it and/or
 ;;;; modify it under the terms of the GNU Lesser General Public
@@ -72,8 +72,17 @@
 
 ;;;; Deprecated definitions.
 
-(define substring-move-left! substring-move!)
-(define substring-move-right! substring-move!)
+(define substring-move-left!
+  (lambda args
+    (issue-deprecation-warning
+     "`substring-move-left!' is deprecated.  Use `substring-move!' instead.")
+    (apply substring-move! args)))
+(define substring-move-right!
+  (lambda args
+    (issue-deprecation-warning
+     "`substring-move-right!' is deprecated.  Use `substring-move!' instead.")
+    (apply substring-move! args)))
+
 
 
 ;; This method of dynamically linking Guile Extensions is deprecated.
@@ -136,18 +145,17 @@
          registered-modules))
 
 (define (dynamic-maybe-call name dynobj)
-  (catch #t                            ; could use false-if-exception here
-        (lambda ()
-          (dynamic-call name dynobj))
-        (lambda args
-          #f)))
+  (issue-deprecation-warning
+   "`dynamic-maybe-call' is deprecated.  "
+   "Wrap `dynamic-call' in a `false-if-exception' yourself.")
+  (false-if-exception (dynamic-call name dynobj)))
+
 
 (define (dynamic-maybe-link filename)
-  (catch #t                            ; could use false-if-exception here
-        (lambda ()
-          (dynamic-link filename))
-        (lambda args
-          #f)))
+  (issue-deprecation-warning
+   "`dynamic-maybe-link' is deprecated.  "
+   "Wrap `dynamic-link' in a `false-if-exception' yourself.")
+  (false-if-exception (dynamic-link filename)))
 
 (define (find-and-link-dynamic-module module-name)
   (define (make-init-name mod-name)
@@ -212,9 +220,15 @@
     (register-modules dynobj)))
 
 (define (try-module-linked module-name)
+  (issue-deprecation-warning
+   "`try-module-linked' is deprecated."
+   "See the manual for how more on C extensions.")
   (init-dynamic-module module-name))
 
 (define (try-module-dynamic-link module-name)
+  (issue-deprecation-warning
+   "`try-module-dynamic-link' is deprecated."
+   "See the manual for how more on C extensions.")
   (and (find-and-link-dynamic-module module-name)
        (init-dynamic-module module-name)))
 
@@ -262,22 +276,70 @@
    "`unmemoize-expr' is deprecated. Use `unmemoize-expression' instead.")
   (apply unmemoize-expression args))
 
-(define ($asinh z) (asinh z))
-(define ($acosh z) (acosh z))
-(define ($atanh z) (atanh z))
-(define ($sqrt z) (sqrt z))
-(define ($abs z) (abs z))
-(define ($exp z) (exp z))
-(define ($log z) (log z))
-(define ($sin z) (sin z))
-(define ($cos z) (cos z))
-(define ($tan z) (tan z))
-(define ($asin z) (asin z))
-(define ($acos z) (acos z))
-(define ($atan z) (atan z))
-(define ($sinh z) (sinh z))
-(define ($cosh z) (cosh z))
-(define ($tanh z) (tanh z))
+(define ($asinh z)
+  (issue-deprecation-warning
+   "`$asinh' is deprecated.  Use `asinh' instead.")
+  (asinh z))
+(define ($acosh z)
+  (issue-deprecation-warning
+   "`$acosh' is deprecated.  Use `acosh' instead.")
+  (acosh z))
+(define ($atanh z)
+  (issue-deprecation-warning
+   "`$atanh' is deprecated.  Use `atanh' instead.")
+  (atanh z))
+(define ($sqrt z)
+  (issue-deprecation-warning
+   "`$sqrt' is deprecated.  Use `sqrt' instead.")
+  (sqrt z))
+(define ($abs z)
+  (issue-deprecation-warning
+   "`$abs' is deprecated.  Use `abs' instead.")
+  (abs z))
+(define ($exp z)
+  (issue-deprecation-warning
+   "`$exp' is deprecated.  Use `exp' instead.")
+  (exp z))
+(define ($log z)
+  (issue-deprecation-warning
+   "`$log' is deprecated.  Use `log' instead.")
+  (log z))
+(define ($sin z)
+  (issue-deprecation-warning
+   "`$sin' is deprecated.  Use `sin' instead.")
+  (sin z))
+(define ($cos z)
+  (issue-deprecation-warning
+   "`$cos' is deprecated.  Use `cos' instead.")
+  (cos z))
+(define ($tan z)
+  (issue-deprecation-warning
+   "`$tan' is deprecated.  Use `tan' instead.")
+  (tan z))
+(define ($asin z)
+  (issue-deprecation-warning
+   "`$asin' is deprecated.  Use `asin' instead.")
+  (asin z))
+(define ($acos z)
+  (issue-deprecation-warning
+   "`$acos' is deprecated.  Use `acos' instead.")
+  (acos z))
+(define ($atan z)
+  (issue-deprecation-warning
+   "`$atan' is deprecated.  Use `atan' instead.")
+  (atan z))
+(define ($sinh z)
+  (issue-deprecation-warning
+   "`$sinh' is deprecated.  Use `sinh' instead.")
+  (sinh z))
+(define ($cosh z)
+  (issue-deprecation-warning
+   "`$cosh' is deprecated.  Use `cosh' instead.")
+  (cosh z))
+(define ($tanh z)
+  (issue-deprecation-warning
+   "`$tanh' is deprecated.  Use `tanh' instead.")
+  (tanh z))
 
 (define (closure? x)
   (issue-deprecation-warning
@@ -705,6 +767,9 @@ it.")
   (define (unrecognized arg)
     (error "unrecognized define-module argument" arg))
 
+  (issue-deprecation-warning
+   "`process-define-module' is deprecated.  Use `define-module*' instead.")
+
   (let ((name (car args))
         (filename #f)
         (pure? #f)


hooks/post-receive
-- 
GNU Guile