[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-14-164-ge

From: Michael Gran
Subject: [Guile-commits] GNU Guile branch, master, updated. release_1-9-14-164-ge1b6a3f
Date: Wed, 02 Feb 2011 13:42:02 +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  e1b6a3f150209ddc14e0bcf7ed770823978518a5 (commit)
      from  de9a0f008f9552ccfa72f63718e54d8f54af1e24 (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 e1b6a3f150209ddc14e0bcf7ed770823978518a5
Author: Michael Gran <address@hidden>
Date:   Wed Feb 2 05:45:37 2011 -0800

    Use 'substring' instead of obsoleted 'make-shared-substring'
    * module/system/repl/describe.scm (display-description): replace
      make-shared-substring with substring


Summary of changes:
 module/system/repl/describe.scm |    4 ++--
 1 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/module/system/repl/describe.scm b/module/system/repl/describe.scm
index 7077f37..f533f44 100644
--- a/module/system/repl/describe.scm
+++ b/module/system/repl/describe.scm
@@ -1,6 +1,6 @@
 ;;; Describe objects
-;; Copyright (C) 2001, 2009 Free Software Foundation, Inc.
+;; Copyright (C) 2001, 2009, 2011 Free Software Foundation, Inc.
 ;;; This library is free software; you can redistribute it and/or
 ;;; modify it under the terms of the GNU Lesser General Public
@@ -165,7 +165,7 @@
 (define-method (display-description (obj <top>))
   (let* ((doc (with-output-to-string (lambda () (display-documentation obj))))
         (index (string-index doc #\newline)))
-    (display (make-shared-substring doc 0 (1+ index)))))
+    (display (substring doc 0 (1+ index)))))
 (define-method (display-documentation (obj <top>))
   (display "Not documented.\n"))

GNU Guile

reply via email to

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