diff options
author | Andy Wingo <wingo@pobox.com> | 2013-01-20 13:28:31 +0100 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2013-01-20 13:28:31 +0100 |
commit | 7f420e49e462ae8faa60d61358ce4e1fdbbb0f21 (patch) | |
tree | e8f1f5272498586126e68be49bd2e43cfefb8cbf /module/oop/goops | |
parent | a796d0a95442b379a9ff2cdf9e0eb6efccc5dc08 (diff) | |
download | guile-7f420e49e462ae8faa60d61358ce4e1fdbbb0f21.tar.gz |
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.
Diffstat (limited to 'module/oop/goops')
-rw-r--r-- | 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 70d8a131c..05362e077 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 |