fix err msg for last of non-list
svn: r8024
This commit is contained in:
parent
8a7cdad926
commit
8f463ff1c4
|
@ -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))
|
||||
|
|
Loading…
Reference in New Issue
Block a user