switch to terminal-port?
svn: r4848
This commit is contained in:
parent
eff8a409a9
commit
bea30d7ba9
|
@ -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
|
||||||
|
|
Loading…
Reference in New Issue
Block a user