[Guile-commits] GNU Guile branch, master, updated. release_1-9-11-291-gc89920a

[Andy Wingo]

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "GNU Guile".

http://git.savannah.gnu.org/cgit/guile.git/commit/?id=c89920a71ff1d2201c5af8780feaa936faf2c7a3

The branch, master has been updated
       via  c89920a71ff1d2201c5af8780feaa936faf2c7a3 (commit)
      from  877514dab09db6b012e68a17301315586e8f27b6 (commit)

Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.

- Log -----------------------------------------------------------------
commit c89920a71ff1d2201c5af8780feaa936faf2c7a3
Author: Andy Wingo <address@hidden>
Date:   Sat Aug 28 13:43:46 2010 -0700

    deprecate passing a number as the destination to `format'
    
    * module/ice-9/format.scm (format): Deprecate having a number as the
      destination.
    * doc/ref/misc-modules.texi (Formatted Output): Update docs.

-----------------------------------------------------------------------

Summary of changes:
 doc/ref/misc-modules.texi |    5 ++---
 module/ice-9/format.scm   |    8 ++++++--
 2 files changed, 8 insertions(+), 5 deletions(-)

diff --git a/doc/ref/misc-modules.texi b/doc/ref/misc-modules.texi
index 6cd0ad2..e17f985 100644
--- a/doc/ref/misc-modules.texi
+++ b/doc/ref/misc-modules.texi
@@ -159,9 +159,8 @@ instead of @nicode{%}, and are more powerful.
 @deffn {Scheme Procedure} format dest fmt address@hidden
 Write output specified by the @var{fmt} string to @var{dest}.
 @var{dest} can be an output port, @code{#t} for
address@hidden (@pxref{Default Ports}), a number for
address@hidden, or @code{#f} to return the output as a
-string.
address@hidden (@pxref{Default Ports}), or @code{#f} to
+return the output as a string.
 
 @var{fmt} can contain literal text to be output, and @nicode{~}
 escapes.  Each escape has the form
diff --git a/module/ice-9/format.scm b/module/ice-9/format.scm
index c802f29..6520a60 100644
--- a/module/ice-9/format.scm
+++ b/module/ice-9/format.scm
@@ -167,13 +167,17 @@
              (cond
               ((or (and (boolean? destination) ; port output
                         destination)
-                   (output-port? destination)
-                   (number? destination))
+                   (output-port? destination))
                (format:out (cond
                             ((boolean? destination) (current-output-port))
                             ((output-port? destination) destination)
                             ((number? destination) (current-error-port)))
                            (car arglist) (cdr arglist)))
+              ((number? destination)
+                (issue-deprecation-warning
+                 "Passing a number to format as the destination is deprecated."
+                 "Pass (current-error-port) instead.")
+               (format:out (current-error-port) (car arglist) (cdr arglist)))
               ((and (boolean? destination)     ; string output
                     (not destination))
                (call-with-output-string


hooks/post-receive
-- 
GNU Guile