FIND-PROGRAM is now operating-system specific.

diff --git a/v7/src/edwin/dirunx.scm b/v7/src/edwin/dirunx.scm
index ecc8b3552572f325cea3ef5e6d916b9196720061..3801b830678ed94aedc30612b5b8dfe97b78ce98 100644 (file)
--- 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 102b3c13aa0f954f378ffe29ffe32c0464c83b3a..a023e3b47ca96ddabea3e834d8c18034357de6ef 100644 (file)
--- 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))