From: Han-Wen Nienhuys <hanwen@xs4all.nl>
Date: Sat, 30 Dec 2006 13:42:07 +0000 (+0100)
Subject: ly_assoc_get: tiny optimization
X-Git-Tag: release/2.11.6-1~24
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=dfe44058047033383486a4ecbeabce31f612a624;p=lilypond.git

ly_assoc_get: tiny optimization
---

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;
 }