From af6964543a21d2cbbf48830e419cc7fce5850d3c Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Fri, 8 Mar 1991 03:13:36 +0000 Subject: [PATCH] Change procedures that return a process status to return just the status and not the exit reason. Add new procedure `subprocess-exit-reason' to get that information. --- v7/src/runtime/process.scm | 22 ++++++++++------------ v7/src/runtime/runtime.pkg | 3 ++- v8/src/runtime/runtime.pkg | 3 ++- 3 files changed, 14 insertions(+), 14 deletions(-) diff --git a/v7/src/runtime/process.scm b/v7/src/runtime/process.scm index 9a08847a4..edfc5eb45 100644 --- a/v7/src/runtime/process.scm +++ b/v7/src/runtime/process.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/process.scm,v 1.7 1991/03/07 04:30:58 cph Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/process.scm,v 1.8 1991/03/08 03:13:15 cph Exp $ Copyright (c) 1989-91 Massachusetts Institute of Technology @@ -195,17 +195,15 @@ MIT in each case. |# (else (convert-subprocess-status process status))))))) (define (convert-subprocess-status process status) - (let ((get-reason - (lambda (status) - (cons status - ((ucode-primitive process-reason 1) - (subprocess-index process)))))) - (case status - ((0) 'RUNNING) - ((1) (get-reason 'STOPPED)) - ((2) (get-reason 'EXITED)) - ((3) (get-reason 'SIGNALLED)) - (else (error "Illegal process status:" status))))) + (case status + ((0) 'RUNNING) + ((1) 'STOPPED) + ((2) 'EXITED) + ((3) 'SIGNALLED) + (else (error "Illegal process status:" status)))) + +(define (subprocess-exit-reason process) + ((ucode-primitive process-reason 1) (subprocess-index process))) (define (subprocess-job-control-status process) (let ((n diff --git a/v7/src/runtime/runtime.pkg b/v7/src/runtime/runtime.pkg index 3195987ba..ebb85e330 100644 --- a/v7/src/runtime/runtime.pkg +++ b/v7/src/runtime/runtime.pkg @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/runtime.pkg,v 14.94 1991/03/07 04:31:16 cph Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/runtime.pkg,v 14.95 1991/03/08 03:13:36 cph Exp $ Copyright (c) 1988-91 Massachusetts Institute of Technology @@ -1938,6 +1938,7 @@ MIT in each case. |# subprocess-continue-background subprocess-continue-foreground subprocess-delete + subprocess-exit-reason subprocess-filename subprocess-get subprocess-id diff --git a/v8/src/runtime/runtime.pkg b/v8/src/runtime/runtime.pkg index 7ec993b5c..5c52436ec 100644 --- a/v8/src/runtime/runtime.pkg +++ b/v8/src/runtime/runtime.pkg @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/runtime/runtime.pkg,v 14.94 1991/03/07 04:31:16 cph Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/runtime/runtime.pkg,v 14.95 1991/03/08 03:13:36 cph Exp $ Copyright (c) 1988-91 Massachusetts Institute of Technology @@ -1938,6 +1938,7 @@ MIT in each case. |# subprocess-continue-background subprocess-continue-foreground subprocess-delete + subprocess-exit-reason subprocess-filename subprocess-get subprocess-id -- 2.25.1