summaryrefslogtreecommitdiff
path: root/module/oop/goops
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2013-01-20 13:28:31 +0100
committerAndy Wingo <wingo@pobox.com>2013-01-20 13:28:31 +0100
commit7f420e49e462ae8faa60d61358ce4e1fdbbb0f21 (patch)
treee8f1f5272498586126e68be49bd2e43cfefb8cbf /module/oop/goops
parenta796d0a95442b379a9ff2cdf9e0eb6efccc5dc08 (diff)
downloadguile-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.scm6
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