more consistent form for a test

svn: r12690
2008-12-03 20:01:33 +00:00 · 2008-12-03 20:01:33 +00:00 · c55d305eab
commit c55d305eab
parent 142fd53e90
1 changed files with 1 additions and 1 deletions
--- 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