From bea30d7ba95e944bc66d2f54e213a3b131c1796a Mon Sep 17 00:00:00 2001
From: Eli Barzilay <eli@racket-lang.org>
Date: Tue, 14 Nov 2006 06:24:26 +0000
Subject: [PATCH] switch to terminal-port?

svn: r4848
---
 collects/readline/doc.txt | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/collects/readline/doc.txt b/collects/readline/doc.txt
index 5720d10552..56a9291eff 100644
--- a/collects/readline/doc.txt
+++ b/collects/readline/doc.txt
@@ -14,7 +14,7 @@ interact with it.
 You can put the following in your ~/.mzschemerc so that MzScheme
 starts with readline support on xterms:
 
-  (when (regexp-match? #rx"xterm" (getenv "TERM"))
+  (when (terminal-port? (current-input-port))
     (dynamic-require '(lib "rep.ss" "readline") #f))
 
 or start MzScheme with