From 3ddbef1b5d204fd57d57e3aabef63e5eb7c0eb85 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Tue, 20 Dec 2005 13:29:13 +0000 Subject: [PATCH] made a ~a be a ~e in error msg svn: r1659 --- collects/web-server/servlet-helpers.ss | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/collects/web-server/servlet-helpers.ss b/collects/web-server/servlet-helpers.ss index 921259c2be..4c69cbebb3 100644 --- a/collects/web-server/servlet-helpers.ss +++ b/collects/web-server/servlet-helpers.ss @@ -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)