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

made a ~a be a ~e in error msg

Browse Source 
svn: r1659
This commit is contained in:
Robby Findler 2005-12-20 13:29:13 +00:00
parent effdfd0ef9
commit 3ddbef1b5d
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/web-server/servlet-helpers.ss
View File

@ -197,9 +197,9 @@
(let ([lst (extract-bindings name bindings)])
(cond
[(null? lst)
(error 'extract-binding/single "~a not found in ~a" name bindings)]
(error 'extract-binding/single "~e not found in ~e" name bindings)]
[(null? (cdr lst)) (car lst)]
[else (error 'extract-binding/single "~a occurs multiple times in ~a" name bindings)])))
[else (error 'extract-binding/single "~e occurs multiple times in ~e" name bindings)])))
; extract-bindings : sym (listof (cons str str)) -> (listof str)
(define (extract-bindings name bindings)