From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 14 Nov 1990 15:11:14 +0000 (+0000)
Subject: Make `edwin' be an alias for `edit'.
X-Git-Tag: 20090517-FFI~11059
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=6c9dc033800ef0d5d3acee7cfd5fb7f30df1d50f;p=mit-scheme.git

Make `edwin' be an alias for `edit'.
---

diff --git a/v7/src/edwin/editor.scm b/v7/src/edwin/editor.scm
index d5a719ad3..39f866ee0 100644
--- a/v7/src/edwin/editor.scm
+++ b/v7/src/edwin/editor.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/editor.scm,v 1.198 1990/11/02 03:23:48 cph Exp $
+;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/editor.scm,v 1.199 1990/11/14 15:10:51 cph Rel $
 ;;;
 ;;;	Copyright (c) 1986, 1989, 1990 Massachusetts Institute of Technology
 ;;;
@@ -69,6 +69,9 @@
   (if edwin-finalization (edwin-finalization))
   unspecific)
 
+(define (edwin)
+  (edit))
+
 (define (editor-grab-display editor receiver)
   (display-type/with-display-grabbed (editor-display-type editor)
     (lambda (with-display-ungrabbed)
diff --git a/v7/src/edwin/edwin.pkg b/v7/src/edwin/edwin.pkg
index d8426d5ea..73b8cd97b 100644
--- a/v7/src/edwin/edwin.pkg
+++ b/v7/src/edwin/edwin.pkg
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/edwin.pkg,v 1.21 1990/11/02 03:24:09 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/edwin.pkg,v 1.22 1990/11/14 15:11:14 cph Rel $
 
 Copyright (c) 1989, 1990 Massachusetts Institute of Technology
 
@@ -103,6 +103,7 @@ MIT in each case. |#
 	  create-editor
 	  create-editor-args
 	  edit
+	  edwin
 	  inhibit-editor-init-file?
 	  reset-editor
 	  reset-editor-windows))