fix err msg for last of non-list

svn: r8024
2007-12-16 01:15:40 +00:00 · 2007-12-16 01:15:40 +00:00 · 8f463ff1c4
commit 8f463ff1c4
parent 8a7cdad926
1 changed files with 1 additions and 1 deletions
--- 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))