From bee28bc6a4d1eecdce5bf79eb041e7dd57abf31b Mon Sep 17 00:00:00 2001 From: "Guillermo J. Rozas" Date: Thu, 4 Jun 1992 12:40:40 +0000 Subject: [PATCH] Change default sense of kbd hooks. Now, by default, scheme _does not_ install keyboard hooks. --- v7/src/microcode/doskbd.c | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/v7/src/microcode/doskbd.c b/v7/src/microcode/doskbd.c index 201725505..8b2786012 100644 --- a/v7/src/microcode/doskbd.c +++ b/v7/src/microcode/doskbd.c @@ -1,6 +1,6 @@ /* -*-C-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/Attic/doskbd.c,v 1.6 1992/05/28 19:08:24 jinx Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/Attic/doskbd.c,v 1.7 1992/06/04 12:40:40 jinx Exp $ Copyright (c) 1992 Massachusetts Institute of Technology @@ -256,10 +256,10 @@ install_kbd_hook_p (char * var_name) extern int strcmp_ci (char *, char *); char * envvar = (DOS_getenv (var_name)); - if ((envvar != NULL) && ((strcmp_ci (envvar, "false")) == 0)) - return (dos_false); - else + if ((envvar != NULL) && ((strcmp_ci (envvar, "true")) == 0)) return (dos_true); + else + return (dos_false); } /* -- 2.25.1