From 99592959b8878347b341a28b4bfdfadb4439e5a2 Mon Sep 17 00:00:00 2001
From: Eli Barzilay <eli@racket-lang.org>
Date: Fri, 16 Jan 2009 05:49:16 +0000
Subject: [PATCH] fix display/write swap, use ~s for exn-messages

svn: r13161
---
 collects/scheme/promise.ss | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/collects/scheme/promise.ss b/collects/scheme/promise.ss
index 084dbb1cd0..b1ba98a699 100644
--- a/collects/scheme/promise.ss
+++ b/collects/scheme/promise.ss
@@ -20,8 +20,9 @@
     (cond [(reraise? p)
            (let ([v (reraise-val p)])
              (if (exn? v)
-               (fprintf port "#<promise!exn!~a>" (exn-message v))
-               (fprintf port (if write? "#<promise!~a>" "#<promise!~s>")
+               (fprintf port (if write? "#<promise!exn!~s>" "#<promise!exn!~a>")
+                        (exn-message v))
+               (fprintf port (if write? "#<promise!~s>" "#<promise!~a>")
                         `(raise ,v))))]
           [(running? p)
            (let ([n (running-name p)])