mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-30 06:50:31 +02:00
Code Activity

deprecate (ice-9 mapping)

Browse source 
* module/ice-9/mapping.scm: Add deprecation warning.
This commit is contained in:
Andy Wingo 2013-02-24 15:11:14 +01:00
parent 1746b8ffdb
commit 72ad03fcbd
1 changed files with 4 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

5
module/ice-9/mapping.scm
View file

@ -1,6 +1,6 @@
;;; installed-scm-file ;;; installed-scm-file
;;;; Copyright (C) 1996, 2001, 2006 Free Software Foundation, Inc. ;;;; Copyright (C) 1996, 2001, 2006, 2013 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
@ -29,6 +29,9 @@
mapping-ref mapping-set! hash-table-mapping-hooks mapping-ref mapping-set! hash-table-mapping-hooks
make-hash-table-mapping hash-table-mapping)) make-hash-table-mapping hash-table-mapping))
(issue-deprecation-warning
"(ice-9 mapping) is deprecated. Use srfi-69 or rnrs hash tables instead.")
(define mapping-hooks-type (make-record-type 'mapping-hooks '(get-handle (define mapping-hooks-type (make-record-type 'mapping-hooks '(get-handle
create-handle create-handle
remove))) remove)))