fix err msg for last of non-list

svn: r8024
This commit is contained in:
Matthew Flatt 2007-12-16 01:15:40 +00:00
parent 8a7cdad926
commit 8f463ff1c4

View File

@ -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))