remove an unnecessary turtle check in `assoc' variants

2011-04-24 14:43:06 -06:00 · 2011-04-24 14:43:06 -06:00 · 50878614e0
commit 50878614e0
parent 41075df8d7
1 changed files with 1 additions and 1 deletions
--- a/collects/racket/private/list.rkt
+++ b/collects/racket/private/list.rkt
@ -147,7 +147,7 @@
                      a
                      (let ([l (unsafe-cdr l)])
                        (cond
-                         [(eq? l t) (bad-list who orig-l)]
+                         ;; [(eq? l t) (bad-list who orig-l)]
                         [(pair? l)
                          (let ([a (unsafe-car l)])
                            (if (pair? a)