* boot-9.scm (call-with-deprecation): New procedure.

(identity): New procedure.
	(id): Deprecated.

ice-9/ChangeLog

@@ -1,3 +1,9 @@
+2001-04-15  Keisuke Nishida  <kxn30@po.cwru.edu>
+
+	* boot-9.scm (call-with-deprecation): New procedure.
+	(identity): New procedure.
+	(id): Deprecated.	
+
 2001-04-15  Keisuke Nishida  <kxn30@po.cwru.edu>
 
 	* boot-9.scm (defmacro, define-macro, define-syntax-macro):

ice-9/boot-9.scm

@@ -87,7 +87,7 @@
 ;;; {Trivial Functions}
 ;;;
 
-(define (id x) x)
+(define (identity x) x)
 (define (1+ n) (+ n 1))
 (define (-1+ n) (+ n -1))
 (define 1- -1+)
@@ -109,6 +109,25 @@
 
 (define (apply-to-args args fn) (apply fn args))
 
+
+;;; {Deprecation}
+;;;
+
+(define call-with-deprecation
+  (let ((issued-warnings (make-hash-table 13)))
+    (lambda (msg thunk)
+      (cond ((not (hashv-ref issued-warnings msg #f))
+	     (display ";;; " (current-error-port))
+	     (display msg (current-error-port))
+	     (newline (current-error-port))
+	     (hashv-set! issued-warnings msg #t)))
+      (thunk))))
+
+(define (id x)
+  (call-with-deprecation "`id' is deprecated.  Use `identity' instead."
+    (lambda ()
+      (identity x))))
+
 
 ;;; {Integer Math}
 ;;;