From 1c841e143f5353c4479e33d7a793a71b7e994088 Mon Sep 17 00:00:00 2001 From: Eli Barzilay Date: Fri, 3 Feb 2012 16:37:46 -0500 Subject: [PATCH] Add `procedure-rename' to the pile of things that are not used. Closes PR9811 (with no fix it). --- collects/racket/private/list.rkt | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/collects/racket/private/list.rkt b/collects/racket/private/list.rkt index 79a22643d4..032730b7f8 100644 --- a/collects/racket/private/list.rkt +++ b/collects/racket/private/list.rkt @@ -316,9 +316,10 @@ ([(arity) (procedure-arity g)] [(required-kwds allowed-kwds) (procedure-keywords g)] [(composed) - ;; FIXME: would be nice to use `procedure-reduce-arity' and - ;; `procedure-reduce-keyword-arity' in the places marked below, - ;; but they currently add a significant overhead. + ;; FIXME: would be nice to use `procedure-rename', + ;; `procedure-reduce-arity' and `procedure-reduce-keyword-arity' + ;; in the places marked below, but they currently add a + ;; significant overhead. (if (eq? 1 arity) (lambda (x) (app f (g x))) (case-lambda ; <--- here