guile/guile-core/ice-9 optargs.scm

[Marius Vollmer]

CVSROOT:        /cvs
Module name:    guile
Changes by:     Marius Vollmer <address@hidden> 01/05/20 16:37:43

Modified files:
        guile-core/ice-9: optargs.scm 

Log message:
        (#\&): Use `issue-deprecation-warning' instead of
        `display'.

CVSWeb URLs:
http://savannah.gnu.org/cgi-bin/viewcvs/guile/guile-core/ice-9/optargs.scm.diff?cvsroot=OldCVS&tr1=1.11&tr2=1.12&r1=text&r2=text

Patches:
Index: guile/guile-core/ice-9/optargs.scm
diff -u guile/guile-core/ice-9/optargs.scm:1.11 
guile/guile-core/ice-9/optargs.scm:1.12
--- guile/guile-core/ice-9/optargs.scm:1.11     Tue May 15 07:59:01 2001
+++ guile/guile-core/ice-9/optargs.scm  Sun May 20 16:37:42 2001
@@ -180,9 +180,8 @@
 ;; "#&optional" instead of "#:optional"
 
 (read-hash-extend #\& (lambda (c port)
-                       (display
-                        "WARNING: `#&' is deprecated, use `#:' instead\n"
-                        (current-error-port))
+                       (issue-deprecation-warning 
+                        "`#&' is deprecated, use `#:' instead.")
                        (case (read port)
                          ((optional) #:optional)
                          ((key) #:key)