switch to terminal-port?

svn: r4848
This commit is contained in:
Eli Barzilay 2006-11-14 06:24:26 +00:00
parent eff8a409a9
commit bea30d7ba9

View File

@ -14,7 +14,7 @@ interact with it.
You can put the following in your ~/.mzschemerc so that MzScheme You can put the following in your ~/.mzschemerc so that MzScheme
starts with readline support on xterms: 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)) (dynamic-require '(lib "rep.ss" "readline") #f))
or start MzScheme with or start MzScheme with