diff options
| -rw-r--r-- | byterun/terminfo.c | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/byterun/terminfo.c b/byterun/terminfo.c index f136fc899..50b87da92 100644 --- a/byterun/terminfo.c +++ b/byterun/terminfo.c @@ -45,10 +45,13 @@ CAMLprim value terminfo_setup (value vchan) { value result; static char buffer[1024]; + char *term; chan = Channel (vchan); - if (tgetent(buffer, getenv("TERM")) != 1) return Bad_term; + term = getenv ("TERM"); + if (term == NULL) return Bad_term; + if (tgetent(buffer, term) != 1) return Bad_term; num_lines = tgetnum ("li"); up = tgetstr ("up", &area_p); |