[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".
http://git.savannah.gnu.org/cgit/guile.git/commit/?id=e1b6a3f150209ddc14e0bcf7ed770823978518a5
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"))
hooks/post-receive
--
GNU Guile
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Guile-commits] GNU Guile branch, master, updated. release_1-9-14-164-ge1b6a3f,
Michael Gran <=