From: Joe Marshall <jmarshall@alum.mit.edu>
Date: Thu, 3 Sep 2009 17:22:52 +0000 (-0700)
Subject: Avoid duplicate type checks in ASSQ.
X-Git-Tag: 20100708-Gtk~350
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=6bceccb3d92ab8ca5eb267d95dca74c24b7b1c5d;p=mit-scheme.git

Avoid duplicate type checks in ASSQ.
---

diff --git a/src/runtime/list.scm b/src/runtime/list.scm
index 8173fec59..a3cb276a2 100644
--- a/src/runtime/list.scm
+++ b/src/runtime/list.scm
@@ -1140,6 +1140,7 @@ USA.
 
 (define-integrable (%assoc key alist = caller)
   (let ((lose (lambda () (error:not-alist alist caller))))
+    (declare (no-type-checks))
     (let loop ((alist alist))
       (if (pair? alist)
 	  (begin