at-exit-do-not-call: wrong return value.

* sysif.c (at_exit_do_not_call): Reverse Boolean polarity of
return value to match documentation.

1 files changed, 1 insertions, 1 deletions

diff --git a/sysif.c b/sysif.c
index 632805fd..1cce32db 100644
--- a/sysif.c
+++ b/sysif.c
@@ -165,7 +165,7 @@ val at_exit_do_not_call(val func)
 {
   val old = at_exit_list;
   at_exit_list = remq(func, old, nil);
-  return tnil(old == at_exit_list);
+  return tnil(old != at_exit_list);
 }
 
 static void at_exit_handler(void)