From dfe44058047033383486a4ecbeabce31f612a624 Mon Sep 17 00:00:00 2001 From: Han-Wen Nienhuys Date: Sat, 30 Dec 2006 14:42:07 +0100 Subject: [PATCH] ly_assoc_get: tiny optimization --- lily/general-scheme.cc | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/lily/general-scheme.cc b/lily/general-scheme.cc index 1cb51a10ff..5e161474dc 100644 --- a/lily/general-scheme.cc +++ b/lily/general-scheme.cc @@ -135,12 +135,12 @@ LY_DEFINE (ly_assoc_get, "ly:assoc-get", "(or #f if not specified).") { SCM handle = scm_assoc (key, alist); - + if (scm_is_pair (handle)) + return scm_cdr (handle); + if (default_value == SCM_UNDEFINED) default_value = SCM_BOOL_F; - if (scm_is_pair (handle)) - return scm_cdr (handle); return default_value; } -- 2.39.5