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

rehack the argument formatting hack

Browse Source 
svn: r14436
This commit is contained in:
Eli Barzilay 2009-04-06 12:18:42 +00:00
parent 2cc94cbf02
commit 76c2d9eceb
1 changed files with 9 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
collects/scheme/private/kw.ss
View File

@ -778,12 +778,15 @@
(if (and (null? args) (null? kws))
"no arguments supplied"
;; Hack to format arguments:
(with-handlers ([exn:fail?
(lambda (exn)
(format "arguments were: ~a"
(cadr (regexp-match
#rx"other arguments were: (.*)$"
(exn-message exn)))))])
(with-handlers
([exn:fail?
(lambda (exn)
;; the message can end with:
;; ..., given: x; given 117 arguments total
;; ..., given: x; other arguments were: 1 2 3
(regexp-replace #rx"^.*? given: x; (other )?"
(exn-message exn)
""))])
(apply
raise-type-error 'x "x" 0 'x
(append args (apply append (map list kws kw-args))))))])