summaryrefslogtreecommitdiff
path: root/module/ice-9/deprecated.scm
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2011-05-12 13:07:19 +0200
committerAndy Wingo <wingo@pobox.com>2011-05-12 13:07:19 +0200
commitd147fe2e68c93fe5c4ae47da6749e39edfa06e55 (patch)
treef8db6306dd04169896dd97d458dc29963f229ff4 /module/ice-9/deprecated.scm
parent8f6a4b248b12db2c56ab29e909ba1441aa8f512d (diff)
downloadguile-d147fe2e68c93fe5c4ae47da6749e39edfa06e55.tar.gz
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.
Diffstat (limited to 'module/ice-9/deprecated.scm')
-rw-r--r--module/ice-9/deprecated.scm123
1 files changed, 94 insertions, 29 deletions
diff --git a/module/ice-9/deprecated.scm b/module/ice-9/deprecated.scm
index d6dd837c2..f4ae2e365 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)