[Guile-commits] GNU Guile branch, stable-2.0, updated. v2.0.7-35-g7f420e4

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

The branch, stable-2.0 has been updated
       via  7f420e49e462ae8faa60d61358ce4e1fdbbb0f21 (commit)
      from  a796d0a95442b379a9ff2cdf9e0eb6efccc5dc08 (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 7f420e49e462ae8faa60d61358ce4e1fdbbb0f21
Author: Andy Wingo <address@hidden>
Date:   Sun Jan 20 13:28:31 2013 +0100

    Fix attempt to get handle of weak table in (oop goops save)
    
    * module/oop/goops/save.scm (readable?): Fix.  Thanks to Andrew Gaylard
      for the report.

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

Summary of changes:
 module/oop/goops/save.scm |    6 ++++--
 1 files changed, 4 insertions(+), 2 deletions(-)

diff --git a/module/oop/goops/save.scm b/module/oop/goops/save.scm
index 70d8a13..05362e0 100644
--- a/module/oop/goops/save.scm
+++ b/module/oop/goops/save.scm
@@ -1,6 +1,6 @@
 ;;; installed-scm-file
 
-;;;; Copyright (C) 2000,2001,2002, 2006, 2009, 2010 Free Software Foundation, 
Inc.
+;;;; Copyright (C) 2000,2001,2002, 2006, 2009, 2010, 2013 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
@@ -122,8 +122,10 @@
 (define (readable-expression obj)
   `(readable ,(hashq-ref readables obj)))
 
+;; FIXME: if obj is nil or false, this can return a false value.  OTOH
+;; usually this is only for non-immediates.
 (define (readable? obj)
-  (hashq-get-handle readables obj))
+  (hashq-ref readables obj))
 
 ;;;
 ;;; Strings


hooks/post-receive
-- 
GNU Guile