From: Guillermo J. Rozas <edu/mit/csail/zurich/gjr>
Date: Thu, 25 Feb 1993 08:35:52 +0000 (+0000)
Subject: Fix backwards conditional.
X-Git-Tag: 20090517-FFI~8455
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=361dabdd065016c1b6cf083ccb6e52332d3345c1;p=mit-scheme.git

Fix backwards conditional.
---

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."