suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Add `procedure-rename' to the pile of things that are not used.

Browse Source 
Closes PR9811 (with no fix it).
This commit is contained in:
Eli Barzilay 2012-02-03 16:37:46 -05:00
parent 456fcd8aeb
commit 1c841e143f
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
collects/racket/private/list.rkt
View File

@ -316,9 +316,10 @@
([(arity) (procedure-arity g)] ([(arity) (procedure-arity g)]
[(required-kwds allowed-kwds) (procedure-keywords g)] [(required-kwds allowed-kwds) (procedure-keywords g)]
[(composed) [(composed)
;; FIXME: would be nice to use `procedure-reduce-arity' and ;; FIXME: would be nice to use `procedure-rename',
;; `procedure-reduce-keyword-arity' in the places marked below, ;; `procedure-reduce-arity' and `procedure-reduce-keyword-arity'
;; but they currently add a significant overhead. ;; in the places marked below, but they currently add a
;; significant overhead.
(if (eq? 1 arity) (if (eq? 1 arity)
(lambda (x) (app f (g x))) (lambda (x) (app f (g x)))
(case-lambda ; <--- here (case-lambda ; <--- here