From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 6 Jan 1995 00:59:18 +0000 (+0000)
Subject: FIND-PROGRAM is now operating-system specific.
X-Git-Tag: 20090517-FFI~6810
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=e185ca278d57b14f19d3adce06304b0d70544d64;p=mit-scheme.git

FIND-PROGRAM is now operating-system specific.
---

diff --git a/v7/src/edwin/dirunx.scm b/v7/src/edwin/dirunx.scm
index ecc8b3552..3801b8306 100644
--- a/v7/src/edwin/dirunx.scm
+++ b/v7/src/edwin/dirunx.scm
@@ -1,8 +1,8 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Id: dirunx.scm,v 1.7 1994/09/28 22:44:45 cph Exp $
+;;;	$Id: dirunx.scm,v 1.8 1995/01/06 00:58:41 cph Exp $
 ;;;
-;;;	Copyright (c) 1992-93 Massachusetts Institute of Technology
+;;;	Copyright (c) 1992-95 Massachusetts Institute of Technology
 ;;;
 ;;;	This material was developed by the Scheme project at the
 ;;;	Massachusetts Institute of Technology, Department of
@@ -50,7 +50,7 @@
 (define (dired-change-inode program)
   (lambda (attribute argument)
     (dired-change-files (string-append "change" attribute "of") argument
-      (let ((program (find-program program #f))
+      (let ((program (os/find-program program #f))
 	    (directory (buffer-default-directory (current-buffer))))
 	(lambda (pathname lstart)
 	  (run-synchronous-process #f #f directory #f
@@ -79,7 +79,7 @@ The files are compressed or uncompressed using gzip."
   (lambda (argument)
     (let ((n
 	   (dired-change-files "compress" argument
-	     (let ((gzip (find-program "gzip" #f))
+	     (let ((gzip (os/find-program "gzip" #f))
 		   (directory (buffer-default-directory (current-buffer))))
 	       (lambda (pathname lstart)
 		 (let ((type (pathname-type pathname))
diff --git a/v7/src/edwin/vc.scm b/v7/src/edwin/vc.scm
index 102b3c13a..a023e3b47 100644
--- a/v7/src/edwin/vc.scm
+++ b/v7/src/edwin/vc.scm
@@ -1,8 +1,8 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Id: vc.scm,v 1.16 1994/10/12 01:52:11 cph Exp $
+;;;	$Id: vc.scm,v 1.17 1995/01/06 00:59:18 cph Exp $
 ;;;
-;;;	Copyright (c) 1994 Massachusetts Institute of Technology
+;;;	Copyright (c) 1994-95 Massachusetts Institute of Technology
 ;;;
 ;;;	This material was developed by the Scheme project at the
 ;;;	Massachusetts Institute of Technology, Department of
@@ -1222,8 +1222,8 @@ the value of vc-log-mode-hook."
 		  (buffer-end command-buffer)
 		  #f
 		  #f
-		  (find-program command
-				(buffer-default-directory command-buffer))
+		  (os/find-program command
+				   (buffer-default-directory command-buffer))
 		  (vc-command-arguments arguments))))
       (if (and (eq? 'EXITED (car result))
 	       (<= 0 (cdr result) status-limit))