use a single printf

svn: r10294
2008-06-16 17:55:13 +00:00 · 2008-06-16 17:55:13 +00:00 · fbb652713b
commit fbb652713b
parent 1386b63116
1 changed files with 2 additions and 3 deletions
--- a/collects/drscheme/private/module-language.ss
+++ b/collects/drscheme/private/module-language.ss
@ -115,9 +115,8 @@
    (inherit get-reader)
    (define/override (front-end/interaction port settings)
      (if (thread-cell-ref hopeless-repl)
-        (begin (display "Module Language: " (current-error-port))
-               (display hopeless-message (current-error-port))
-               (newline (current-error-port))
+        (begin (fprintf (current-error-port)
+                        "Module Language: ~a\n" hopeless-message)
               (λ x eof))
        (super front-end/interaction port settings)))