suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix err msg for last of non-list

Browse Source 
svn: r8024
This commit is contained in:
Matthew Flatt 2007-12-16 01:15:40 +00:00
parent 8a7cdad926
commit 8f463ff1c4
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/scheme/list.ss
View File

@ -44,7 +44,7 @@
(define (last x) (define (last x)
(unless (and (pair? x) (unless (and (pair? x)
(list? x)) (list? x))
(raise-type-error 'rest "non-empty list" x)) (raise-type-error 'last "non-empty list" x))
(let loop ([x x]) (let loop ([x x])
(if (pair? (cdr x)) (if (pair? (cdr x))
(loop (cdr x)) (loop (cdr x))