Fix backwards conditionals in exit and %exit.

diff --git a/v7/src/runtime/global.scm b/v7/src/runtime/global.scm
index 15c5075e5dd8ec97ba734768130a978d6eb945fe..62bcb530f1151a0fe3454b7250660582ba94eacb 100644 (file)
--- a/v7/src/runtime/global.scm
+++ b/v7/src/runtime/global.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/global.scm,v 14.26 1991/08/27 01:22:21 jinx Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/global.scm,v 14.27 1991/08/27 01:31:00 jinx Exp $
 
 Copyright (c) 1988-91 Massachusetts Institute of Technology
 
@@ -174,16 +174,17 @@ MIT in each case. |#
          (wait-loop)))))
 
 (define (exit #!optional integer)
-  (if (prompt-for-confirmation "Kill Scheme")
-      (if (default-object? integer)
-         (%exit integer)
-         (%exit))))
+  (cond ((not (prompt-for-confirmation "Kill Scheme")))
+       ((default-object? integer)
+        (%exit))
+       (else
+        (%exit integer))))
 
 (define (%exit #!optional integer)
   (event-distributor/invoke! event:before-exit)
   (if (default-object? integer)
-      ((ucode-primitive exit-with-value 1) integer)
-      ((ucode-primitive exit 0))))
+      ((ucode-primitive exit 0))
+      ((ucode-primitive exit-with-value 1) integer)))
 
 (define (quit)
   (with-absolutely-no-interrupts (ucode-primitive halt))

diff --git a/v8/src/runtime/global.scm b/v8/src/runtime/global.scm
index 88ed91dff1864c1347f63cc068d773fa9c640713..81844ebf87cd770219a17f32bca2b40ef9baa320 100644 (file)
--- a/v8/src/runtime/global.scm
+++ b/v8/src/runtime/global.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/runtime/global.scm,v 14.26 1991/08/27 01:22:21 jinx Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/runtime/global.scm,v 14.27 1991/08/27 01:31:00 jinx Exp $
 
 Copyright (c) 1988-91 Massachusetts Institute of Technology
 
@@ -174,16 +174,17 @@ MIT in each case. |#
          (wait-loop)))))
 
 (define (exit #!optional integer)
-  (if (prompt-for-confirmation "Kill Scheme")
-      (if (default-object? integer)
-         (%exit integer)
-         (%exit))))
+  (cond ((not (prompt-for-confirmation "Kill Scheme")))
+       ((default-object? integer)
+        (%exit))
+       (else
+        (%exit integer))))
 
 (define (%exit #!optional integer)
   (event-distributor/invoke! event:before-exit)
   (if (default-object? integer)
-      ((ucode-primitive exit-with-value 1) integer)
-      ((ucode-primitive exit 0))))
+      ((ucode-primitive exit 0))
+      ((ucode-primitive exit-with-value 1) integer)))
 
 (define (quit)
   (with-absolutely-no-interrupts (ucode-primitive halt))