summaryrefslogtreecommitdiff
path: root/libguile/weak-table.c
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2016-11-26 16:07:30 +0100
committerAndy Wingo <wingo@pobox.com>2016-11-26 16:07:30 +0100
commit5a3bc32c9968a929158c2089b1bd65f922429f02 (patch)
treecf72433452d842920d05dd43336ffec514bbe18a /libguile/weak-table.c
parent0dcca77754302e8bad4af82113d952ef243271bd (diff)
downloadguile-5a3bc32c9968a929158c2089b1bd65f922429f02.tar.gz
Fix scm_weak_table_refq for undefined default
* libguile/weak-table.c (scm_weak_table_refq): No need to default weak table result to #f; just use whatever was passed in.
Diffstat (limited to 'libguile/weak-table.c')
-rw-r--r--libguile/weak-table.c3
1 files changed, 0 insertions, 3 deletions
diff --git a/libguile/weak-table.c b/libguile/weak-table.c
index cd7d8c86a..f6f8dd68b 100644
--- a/libguile/weak-table.c
+++ b/libguile/weak-table.c
@@ -912,9 +912,6 @@ assq_predicate (SCM x, SCM y, void *closure)
SCM
scm_weak_table_refq (SCM table, SCM key, SCM dflt)
{
- if (SCM_UNBNDP (dflt))
- dflt = SCM_BOOL_F;
-
return scm_c_weak_table_ref (table, scm_ihashq (key, -1),
assq_predicate, SCM_UNPACK_POINTER (key),
dflt);