From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 26 Apr 1989 18:53:34 +0000 (+0000)
Subject: Add variable `edwin-reset-args' which is passed to `edwin-reset' on
X-Git-Tag: 20090517-FFI~12105
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=13bbf730fee3e319fe4dc65ee4260e7b599f86ad;p=mit-scheme.git

Add variable `edwin-reset-args' which is passed to `edwin-reset' on
its first call.
---

diff --git a/v7/src/edwin/editor.scm b/v7/src/edwin/editor.scm
index f466d00c7..45b898d0e 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.185 1989/04/15 00:48:32 cph Exp $
+;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/editor.scm,v 1.186 1989/04/26 18:53:20 cph Exp $
 ;;;
 ;;;	Copyright (c) 1986, 1989 Massachusetts Institute of Technology
 ;;;
@@ -41,9 +41,12 @@
 
 (declare (usual-integrations))
 
+(define edwin-reset-args
+  '())
+
 (define (edwin)
   (if (not edwin-editor)
-      (edwin-reset))
+      (apply edwin-reset edwin-reset-args))
   (call-with-current-continuation
    (lambda (continuation)
      (bind-condition-handler
diff --git a/v7/src/edwin/edwin.pkg b/v7/src/edwin/edwin.pkg
index 71c6dbeb2..df83b6f08 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.3 1989/04/15 00:48:50 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/edwin.pkg,v 1.4 1989/04/26 18:53:34 cph Exp $
 
 Copyright (c) 1989 Massachusetts Institute of Technology
 
@@ -98,7 +98,9 @@ MIT in each case. |#
 	 "tximod")
   (parent ())
   (export (edwin class-macros)
-	  class-instance-transforms))
+	  class-instance-transforms)
+  (export ()
+	  edwin-reset-args))
 
 (define-package (edwin class-macros)
   (files "clsmac")