[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

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

From: Andy Wingo
Subject: [Guile-commits] GNU Guile branch, master, updated. release_1-9-11-291-gc89920a
Date: Sat, 28 Aug 2010 20:42:21 +0000

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".

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
    * 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
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 @@
               ((or (and (boolean? destination) ; port output
-                   (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))

GNU Guile

reply via email to

[Prev in Thread] Current Thread [Next in Thread]