From 361dabdd065016c1b6cf083ccb6e52332d3345c1 Mon Sep 17 00:00:00 2001
From: "Guillermo J. Rozas" <edu/mit/csail/zurich/gjr>
Date: Thu, 25 Feb 1993 08:35:52 +0000
Subject: [PATCH] Fix backwards conditional.

---
 v7/src/edwin/basic.scm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/v7/src/edwin/basic.scm b/v7/src/edwin/basic.scm
index 8c90e6e6f..9c59eaf3b 100644
--- 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."
-- 
2.25.1