[Guile-commits] GNU Guile branch, master, updated. release_1-9-11-149-gd5e0eb5

[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=d5e0eb579798067b411aa36ad7f21eb0cd16ef07

The branch, master has been updated
       via  d5e0eb579798067b411aa36ad7f21eb0cd16ef07 (commit)
      from  962b910318f792f7593782c166c3d129bc5a7be9 (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 d5e0eb579798067b411aa36ad7f21eb0cd16ef07
Author: Andy Wingo <address@hidden>
Date:   Tue Jun 29 12:20:09 2010 +0200

    fix repl level printing
    
    * module/system/repl/common.scm (repl-prompt): Fix repl level printing.

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

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

diff --git a/module/system/repl/common.scm b/module/system/repl/common.scm
index 97a8a7f..2d50d44 100644
--- a/module/system/repl/common.scm
+++ b/module/system/repl/common.scm
@@ -130,7 +130,9 @@ See <http://www.gnu.org/licenses/lgpl.html>, for more 
details.")
    (else
     (format #f "address@hidden> " (language-name (repl-language repl))
             (module-name (current-module))
-            (let ((level (length (or (fluid-ref *repl-stack*) '()))))
+            (let ((level (length (cond
+                                  ((fluid-ref *repl-stack*) => cdr)
+                                  (else '())))))
               (if (zero? level) "" (format #f " [~a]" level)))))))
 
 (define (repl-read repl)


hooks/post-receive
-- 
GNU Guile