From b0135206c38c58441667dd6202b099a57d0d2cb7 Mon Sep 17 00:00:00 2001
From: Eli Barzilay <eli@barzilay.org>
Date: Wed, 25 Aug 2010 16:10:55 -0400
Subject: [PATCH] Lots of "~e" to "~.s" changes.

original commit: 606b7f60dc597a6870efc11364e1dd3e1a8b4a1b
---
 collects/framework/preferences.rkt   | 2 +-
 collects/framework/private/color.rkt | 6 +++---
 collects/framework/test.rkt          | 8 ++++----
 3 files changed, 8 insertions(+), 8 deletions(-)

diff --git a/collects/framework/preferences.rkt b/collects/framework/preferences.rkt
index dbec9584..25bd438b 100644
--- a/collects/framework/preferences.rkt
+++ b/collects/framework/preferences.rkt
@@ -141,7 +141,7 @@ the state transitions / contracts are:
         (let ([default (hash-ref defaults p)])
           (unless ((default-checker default) value)
             (error 'preferences:set
-                   "tried to set preference ~e to ~e but it does not meet test from preferences:set-default"
+                   "tried to set preference ~e to ~e but it does not meet test from `preferences:set-default'"
                    p value))
           (check-callbacks p value)
           (hash-set! preferences p value))]
diff --git a/collects/framework/private/color.rkt b/collects/framework/private/color.rkt
index f6a5dd6d..281844f3 100644
--- a/collects/framework/private/color.rkt
+++ b/collects/framework/private/color.rkt
@@ -918,15 +918,15 @@ added get-regions
          (let* ((x null)
                 (f (λ (a b c) (set! x (cons (list a b c) x)))))
            (send (lexer-state-tokens ls) for-each f)
-           (printf "tokens: ~e~n" (reverse x))
+           (printf "tokens: ~.s~n" (reverse x))
            (set! x null)
            (send (lexer-state-invalid-tokens ls) for-each f)
-           (printf "invalid-tokens: ~e~n" (reverse x))
+           (printf "invalid-tokens: ~.s~n" (reverse x))
            (printf "start-pos: ~a current-pos: ~a invalid-tokens-start ~a~n"
                    (lexer-state-start-pos ls)
                    (lexer-state-current-pos ls)
                    (lexer-state-invalid-tokens-start ls))
-           (printf "parens: ~e~n" (car (send (lexer-state-parens ls) test)))))
+           (printf "parens: ~.s~n" (car (send (lexer-state-parens ls) test)))))
        lexer-states))
     
     ;; ------------------------- Callbacks to Override ----------------------
diff --git a/collects/framework/test.rkt b/collects/framework/test.rkt
index ac0c21c7..2fc91530 100644
--- a/collects/framework/test.rkt
+++ b/collects/framework/test.rkt
@@ -267,7 +267,7 @@
                         (send panel get-children)))])
          (or found
              (error object-tag 
-                    "no object of class ~a named ~e in active frame"
+                    "no object of class ~a named ~.s in active frame"
                     obj-class
                     b-desc)))]
       [(is-a? b-desc obj-class) b-desc]
@@ -289,11 +289,11 @@
              [ctrl (find-ctrl)])
          (cond
            [(not (send ctrl is-shown?))
-            (error error-tag "control ~e is not shown (label ~e)" ctrl (send ctrl get-label))]
+            (error error-tag "control ~.s is not shown (label ~e)" ctrl (send ctrl get-label))]
            [(not (send ctrl is-enabled?))
-            (error error-tag "control ~e is not enabled (label ~e)" ctrl (send ctrl get-label))]
+            (error error-tag "control ~.s is not enabled (label ~e)" ctrl (send ctrl get-label))]
            [(not (in-active-frame? ctrl))
-            (error error-tag "control ~e is not in active frame (label ~e)" ctrl (send ctrl get-label))]
+            (error error-tag "control ~.s is not in active frame (label ~e)" ctrl (send ctrl get-label))]
            [else
             (update-control ctrl)
             (send ctrl command event)