Fix backwards conditional.

diff --git a/v7/src/edwin/basic.scm b/v7/src/edwin/basic.scm
index 8c90e6e6fa0e758ee8242f31d17a449edd7bde36..9c59eaf3b257442b8dd492c0d038d4fea1624cfc 100644 (file)
--- a/v7/src/edwin/basic.scm
+++ b/v7/src/edwin/basic.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;    $Id: basic.scm,v 1.128 1993/02/25 02:43:26 gjr Exp $
+;;;    $Id: basic.scm,v 1.129 1993/02/25 08:35:52 gjr Exp $
 ;;;
 ;;;    Copyright (c) 1986, 1989-1993 Massachusetts Institute of Technology
 ;;;
@@ -314,8 +314,8 @@ With argument, saves visited file first."
   (lambda (argument)
     (if argument (save-buffer (current-buffer) false))
     (if (and scheme-can-quit? (os/scheme-can-quit?))
-       (editor-error "Scheme cannot be suspended"))
-    (quit-scheme)))
+       (quit-scheme)
+       (editor-error "Scheme cannot be suspended"))))
 
 (define-command suspend-edwin
   "Stop Edwin and return to Scheme."