From 8f463ff1c42336c682a452fa1b4f0f2c7fb6dc30 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Sun, 16 Dec 2007 01:15:40 +0000
Subject: [PATCH] fix err msg for last of non-list

svn: r8024
---
 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 d5024c794c..c2d2662568 100644
--- a/collects/scheme/list.ss
+++ b/collects/scheme/list.ss
@@ -44,7 +44,7 @@
   (define (last x)
     (unless (and (pair? x)
                  (list? x))
-      (raise-type-error 'rest "non-empty list" x))
+      (raise-type-error 'last "non-empty list" x))
     (let loop ([x x])
       (if (pair? (cdr x))
           (loop (cdr x))