From c55d305eab11b86ad86c4c704df0d582a06eebe6 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Wed, 3 Dec 2008 20:01:33 +0000
Subject: [PATCH] more consistent form for a test

svn: r12690
---
 collects/tests/r6rs/io/ports.sls | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/collects/tests/r6rs/io/ports.sls b/collects/tests/r6rs/io/ports.sls
index 9d1fe38157..8413eaefff 100644
--- a/collects/tests/r6rs/io/ports.sls
+++ b/collects/tests/r6rs/io/ports.sls
@@ -354,7 +354,7 @@
         [else
          ;; Must be big-endian
          (test (get-u8) 0)
-         (test (get-u8) (char->integer #\a))]))
+         (test (get-u8) 97)]))
       (test/unspec (close-port p)))
 
     (let ([bytevector->string-via-file