mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-12 06:41:13 +02:00
Code Activity

Make `(ice-9 deprecated)' a module of its own.

Browse source 
* module/ice-9/boot-9.scm: Load `deprecated.scm' with
  `resolve-interface' instead of `primitive-load-path'.

* module/ice-9/deprecated.scm: Turned into a module, `(ice-9
  deprecated)'.
This commit is contained in:
Ludovic Courtès 2010-01-11 00:23:12 +01:00
parent 7385dc1243
commit 0ea72faa4e
2 changed files with 30 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

2
module/ice-9/boot-9.scm
View file

@ -3549,7 +3549,7 @@ module '(ice-9 q) '(make-q q-length))}."
(provided? sym))) (provided? sym)))
(begin-deprecated (begin-deprecated
(primitive-load-path "ice-9/deprecated")) (module-use! the-scm-module (resolve-interface '(ice-9 deprecated))))

33
module/ice-9/deprecated.scm
View file

@ -1,4 +1,4 @@
;;;; Copyright (C) 2003, 2005, 2006, 2009 Free Software Foundation, Inc. ;;;; Copyright (C) 2003, 2005, 2006, 2009, 2010 Free Software Foundation, Inc.
;;;; ;;;;
;;;; This library is free software; you can redistribute it and/or ;;;; This library is free software; you can redistribute it and/or
;;;; modify it under the terms of the GNU Lesser General Public ;;;; modify it under the terms of the GNU Lesser General Public
@ -15,11 +15,35 @@
;;;; Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA ;;;; Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
;;;; ;;;;
(define-module (ice-9 deprecated)
#:export (substring-move-left! substring-move-right!
dynamic-maybe-call dynamic-maybe-link
try-module-linked try-module-dynamic-link
list* eval-case unmemoize-expr
$asinh
$acosh
$atanh
$sqrt
$abs
$exp
$log
$sin
$cos
$tan
$asin
$acos
$atan
$sinh
$cosh
$tanh
closure?))
;;;; Deprecated definitions. ;;;; Deprecated definitions.
(define substring-move-left! substring-move!) (define substring-move-left! substring-move!)
(define substring-move-right! substring-move!) (define substring-move-right! substring-move!)
;; This method of dynamically linking Guile Extensions is deprecated. ;; This method of dynamically linking Guile Extensions is deprecated.
;; Use `load-extension' explicitly from Scheme code instead. ;; Use `load-extension' explicitly from Scheme code instead.
@ -162,13 +186,11 @@
(and (find-and-link-dynamic-module module-name) (and (find-and-link-dynamic-module module-name)
(init-dynamic-module module-name))) (init-dynamic-module module-name)))
(define (list* . args) (define (list* . args)
(issue-deprecation-warning "'list*' is deprecated. Use 'cons*' instead.") (issue-deprecation-warning "'list*' is deprecated. Use 'cons*' instead.")
(apply cons* args)) (apply cons* args))
;; The strange prototype system for uniform arrays has been
;; deprecated.
(define-macro (eval-case . clauses) (define-macro (eval-case . clauses)
(issue-deprecation-warning (issue-deprecation-warning
"`eval-case' is deprecated. Use `eval-when' instead.") "`eval-case' is deprecated. Use `eval-when' instead.")
@ -186,6 +208,8 @@
(else (else
`(begin)))) `(begin))))
;; The strange prototype system for uniform arrays has been
;; deprecated.
(read-hash-extend (read-hash-extend
#\y #\y
(lambda (c port) (lambda (c port)
@ -224,6 +248,7 @@
(define ($sinh z) (sinh z)) (define ($sinh z) (sinh z))
(define ($cosh z) (cosh z)) (define ($cosh z) (cosh z))
(define ($tanh z) (tanh z)) (define ($tanh z) (tanh z))
(define (closure? x) (define (closure? x)
(issue-deprecation-warning (issue-deprecation-warning
"`closure?' is deprecated. Use `procedure?' instead.") "`closure?' is deprecated. Use `procedure?' instead.")