From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 23 Dec 1997 04:37:03 +0000 (+0000)
Subject: Add "-edit" command-line option to simplify starting editor.
X-Git-Tag: 20090517-FFI~4920
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=330e4b9147d0f59c246c98f7573f1d0024e1711d;p=mit-scheme.git

Add "-edit" command-line option to simplify starting editor.
---

diff --git a/v7/src/edwin/editor.scm b/v7/src/edwin/editor.scm
index f4106c346..81cba0a40 100644
--- a/v7/src/edwin/editor.scm
+++ b/v7/src/edwin/editor.scm
@@ -1,8 +1,8 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Id: editor.scm,v 1.241 1996/05/11 08:37:35 cph Exp $
+;;;	$Id: editor.scm,v 1.242 1997/12/23 04:36:56 cph Exp $
 ;;;
-;;;	Copyright (c) 1986, 1989-96 Massachusetts Institute of Technology
+;;;	Copyright (c) 1986, 1989-97 Massachusetts Institute of Technology
 ;;;
 ;;;	This material was developed by the Scheme project at the
 ;;;	Massachusetts Institute of Technology, Department of
@@ -106,6 +106,7 @@
 	      message))))))))
 
 (define (edwin . args) (apply edit args))
+(simple-option-parser "-edit" edit)
 
 (define edwin-editor false)
 (define editor-abort)
diff --git a/v7/src/edwin/edwin.pkg b/v7/src/edwin/edwin.pkg
index c29d1f795..f3acc5d7a 100644
--- a/v7/src/edwin/edwin.pkg
+++ b/v7/src/edwin/edwin.pkg
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: edwin.pkg,v 1.216 1997/11/20 05:51:58 cph Exp $
+$Id: edwin.pkg,v 1.217 1997/12/23 04:37:03 cph Exp $
 
 Copyright (c) 1989-97 Massachusetts Institute of Technology
 
@@ -113,6 +113,8 @@ MIT in each case. |#
 	  make-output-buffer
 	  output-buffer/drain-block
 	  output-buffer/write-substring-block)
+  (import (runtime load)
+	  simple-option-parser)
   (export (edwin class-macros)
 	  class-instance-transforms)
   (export ()