* optargs.scm (#\&): Emit warning about `#&' being deprecated.

diff --git a/ice-9/optargs.scm b/ice-9/optargs.scm
index 9824104..3330408 100644 (file)
--- a/ice-9/optargs.scm
+++ b/ice-9/optargs.scm
@@ -199,6 +199,9 @@
 ;; "#&optional" instead of "#:optional"
 
 (read-hash-extend #\& (lambda (c port)
+                       (display 
+                        "WARNING: `#&' is deprecated, use `#:' instead\n"
+                        (current-error-port))
                        (case (read port)
                          ((optional) #:optional)
                          ((key) #:key)