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

Better error message for non-keywords

Browse Source 
svn: r1106

original commit: 04d36492b5ac2157e1691d38629df2fcd1a69e43
This commit is contained in:
Eli Barzilay 2005-10-19 15:14:28 +00:00
parent 6b657c26ed
commit f1d98beb31
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)