Pass Emacs-style status message to process sentinel.

diff --git a/v7/src/edwin/process.scm b/v7/src/edwin/process.scm
index 8be49f22ab0baead6e03cb0eca73c7cce9578ee6..5b125515159c546d2652f0ac04df98ecf17479d7 100644 (file)
--- a/v7/src/edwin/process.scm
+++ b/v7/src/edwin/process.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;    $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/process.scm,v 1.22 1992/03/02 04:08:37 cph Exp $
+;;;    $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/process.scm,v 1.23 1992/03/24 22:52:02 cph Exp $
 ;;;
 ;;;    Copyright (c) 1991-92 Massachusetts Institute of Technology
 ;;;
@@ -284,7 +284,7 @@ False means don't delete them until \\[list-processes] is run."
         (cond ((process-sentinel process)
                =>
                (lambda (sentinel)
-                 (sentinel process status reason)
+                 (sentinel process (status->emacs-status status) reason)
                  true))
               ((eq? status 'RUNNING)
                false)