From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 10 Jan 1992 22:26:54 +0000 (+0000)
Subject: Disallow invocation of editor from within itself.
X-Git-Tag: 20090517-FFI~10003
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=a341cc32dfc4b1cf22bf69e0f6dad1168719b69b;p=mit-scheme.git

Disallow invocation of editor from within itself.
---

diff --git a/v7/src/edwin/editor.scm b/v7/src/edwin/editor.scm
index 7eedb943a..3b67f9975 100644
--- a/v7/src/edwin/editor.scm
+++ b/v7/src/edwin/editor.scm
@@ -1,8 +1,8 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/editor.scm,v 1.209 1991/11/26 08:02:55 cph Exp $
+;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/editor.scm,v 1.210 1992/01/10 22:26:54 cph Exp $
 ;;;
-;;;	Copyright (c) 1986, 1989-91 Massachusetts Institute of Technology
+;;;	Copyright (c) 1986, 1989-92 Massachusetts Institute of Technology
 ;;;
 ;;;	This material was developed by the Scheme project at the
 ;;;	Massachusetts Institute of Technology, Department of
@@ -47,7 +47,9 @@
 (declare (usual-integrations))
 
 (define (edit . args)
-  (cond ((not edwin-editor)
+  (cond ((within-editor?)
+	 (error "edwin: Editor already running"))
+	((not edwin-editor)
 	 (apply create-editor args))
 	((not (null? args))
 	 (error "edwin: Arguments ignored when re-entering editor" args)))