From 50878614e0247821263de849df91af0164f87d32 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Sun, 24 Apr 2011 14:43:06 -0600 Subject: [PATCH] remove an unnecessary turtle check in `assoc' variants --- collects/racket/private/list.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/racket/private/list.rkt b/collects/racket/private/list.rkt index 3c931e9966..9818872086 100644 --- 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)