From 9a8acb6bb9843220f2ce55d5ae55f06e00615836 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 10 May 1996 18:39:28 +0000
Subject: [PATCH] Fix thinko in process-name allocation.

---
 v7/src/edwin/process.scm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/v7/src/edwin/process.scm b/v7/src/edwin/process.scm
index 871955e8d..d88ba00ee 100644
--- a/v7/src/edwin/process.scm
+++ b/v7/src/edwin/process.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Id: process.scm,v 1.40 1996/05/08 20:57:53 cph Exp $
+;;;	$Id: process.scm,v 1.41 1996/05/10 18:39:28 cph Exp $
 ;;;
 ;;;	Copyright (c) 1991-96 Massachusetts Institute of Technology
 ;;;
@@ -215,7 +215,7 @@ Initialized from the SHELL environment variable."
 (define (get-process-by-name name)
   (let loop ((processes edwin-processes))
     (cond ((null? processes) false)
-	  ((eq? name (process-name (car processes))) (car processes))
+	  ((string=? name (process-name (car processes))) (car processes))
 	  (else (loop (cdr processes))))))
 
 (define (get-buffer-process buffer)
-- 
2.25.1