From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 10 May 1996 18:39:28 +0000 (+0000)
Subject: Fix thinko in process-name allocation.
X-Git-Tag: 20090517-FFI~5539
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=9a8acb6bb9843220f2ce55d5ae55f06e00615836;p=mit-scheme.git

Fix thinko in process-name allocation.
---

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)