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

fix `reverse' error message

Browse Source 
Closes PR 12090
This commit is contained in:
Matthew Flatt 2011-08-04 10:18:41 -06:00
parent c2fdf43189
commit a2446dc019
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/racket/private/reverse.rkt
View File

@ -7,7 +7,7 @@
(lambda (l) (lambda (l)
(if (list? l) (if (list? l)
(void) (void)
(raise-type-error 'reverse "list")) (raise-type-error 'reverse "list" l))
(letrec-values ([(loop) (letrec-values ([(loop)
(lambda (a l) (lambda (a l)
(if (null? l) (if (null? l)