diff options
author | Andy Wingo <wingo@pobox.com> | 2016-11-26 16:07:30 +0100 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2016-11-26 16:07:30 +0100 |
commit | 5a3bc32c9968a929158c2089b1bd65f922429f02 (patch) | |
tree | cf72433452d842920d05dd43336ffec514bbe18a /libguile/weak-table.c | |
parent | 0dcca77754302e8bad4af82113d952ef243271bd (diff) | |
download | guile-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.c | 3 |
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); |