From 5a3bc32c9968a929158c2089b1bd65f922429f02 Mon Sep 17 00:00:00 2001
From: Andy Wingo <wingo@pobox.com>
Date: Sat, 26 Nov 2016 16:07:30 +0100
Subject: [PATCH] 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.
---
 libguile/weak-table.c | 3 ---
 1 file changed, 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);