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

diff --git a/v7/src/edwin/editor.scm b/v7/src/edwin/editor.scm
index d5a719ad3c792184f3da30cee038fbc43057c63c..39f866ee0346ec5a65939111561c5ca196d721d4 100644 (file)
--- 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 d8426d5eae0a1ffb8ee13ab8bdc2d8382dc658ae..73b8cd97bd4d8d5f5e4294648577960ad701dd32 100644 (file)
--- 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))