From 5ccfe300f720990528c1ed98693c1688e13fb1de Mon Sep 17 00:00:00 2001
From: Eli Barzilay <eli@racket-lang.org>
Date: Fri, 18 Apr 2008 01:58:05 +0000
Subject: [PATCH] better argument name

svn: r9354
---
 collects/scheme/list.ss | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/collects/scheme/list.ss b/collects/scheme/list.ss
index 18fb6db4e9..c095b2b299 100644
--- a/collects/scheme/list.ss
+++ b/collects/scheme/list.ss
@@ -75,7 +75,7 @@
 
 (define append*
   (case-lambda [(ls) (apply append ls)] ; optimize common case
-               [(ls . lss) (apply append (apply list* ls lss))]))
+               [(l . lss) (apply append (apply list* l lss))]))
 
 (define (flatten orig-sexp)
   (let loop ([sexp orig-sexp] [acc null])