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

Better error message for non-keywords

Browse Source 
svn: r1106
This commit is contained in:
Eli Barzilay 2005-10-19 15:14:28 +00:00
parent 9eb9d4e040
commit 04d36492b5
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/mzlib/kw.ss
View File

@ -267,8 +267,8 @@
#'expr)
#'(if (null? body*)
expr
(error* 'name "non-keywords in arguments: ~e"
body*)))))))))
(error* 'name "expecting a ~s keyword got: ~e"
'keywords (car body*))))))))))
;; ------------------------------------------------------------------------
;; generates the part of the body that deals with rest-related stuff
(define (make-keys-body expr)