Reverse optional arguments for OS/FIND-PROGRAM.

diff --git a/v7/src/runtime/ntprm.scm b/v7/src/runtime/ntprm.scm
index d4c1b15b9cf2fc2908675ad2d208293d057d35c6..e88b1b18eff734367065982f2f90c8af8402f246 100644 (file)
--- a/v7/src/runtime/ntprm.scm
+++ b/v7/src/runtime/ntprm.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: ntprm.scm,v 1.26 1999/01/29 22:46:39 cph Exp $
+$Id: ntprm.scm,v 1.27 1999/02/01 03:42:09 cph Exp $
 
 Copyright (c) 1992-1999 Massachusetts Institute of Technology
 
@@ -655,7 +655,7 @@ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
                  (cdr analyses))))
       result)))
 \f
-(define (os/find-program program default-directory #!optional error? exec-path)
+(define (os/find-program program default-directory #!optional exec-path error?)
   (let ((namestring
         (let* ((exec-path
                 (if (default-object? exec-path)

diff --git a/v7/src/runtime/os2prm.scm b/v7/src/runtime/os2prm.scm
index 642f93172dce5bb2dcd40c7790fd383d2c93e763..d29275d53e632a170b472fb6acf2d54bffd068d4 100644 (file)
--- a/v7/src/runtime/os2prm.scm
+++ b/v7/src/runtime/os2prm.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: os2prm.scm,v 1.39 1999/01/29 22:46:46 cph Exp $
+$Id: os2prm.scm,v 1.40 1999/02/01 03:42:01 cph Exp $
 
 Copyright (c) 1994-1999 Massachusetts Institute of Technology
 
@@ -517,7 +517,7 @@ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
            (loop (cdr strings) (fix:+ (fix:+ index n) 1)))))
     result))
 \f
-(define (os/find-program program default-directory #!optional error? exec-path)
+(define (os/find-program program default-directory #!optional exec-path error?)
   (let ((namestring
         (let* ((exec-path
                 (if (default-object? exec-path)

diff --git a/v7/src/runtime/unxprm.scm b/v7/src/runtime/unxprm.scm
index c4ed54b5ab27197c068cd5f3724fc574c10dac6c..549cb01c6adde7b38121a8373d347b6e4b07110a 100644 (file)
--- a/v7/src/runtime/unxprm.scm
+++ b/v7/src/runtime/unxprm.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: unxprm.scm,v 1.52 1999/01/29 22:47:14 cph Exp $
+$Id: unxprm.scm,v 1.53 1999/02/01 03:42:13 cph Exp $
 
 Copyright (c) 1988-1999 Massachusetts Institute of Technology
 
@@ -462,7 +462,7 @@ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
    filename arguments environment working-directory
    ctty stdin stdout stderr))
 
-(define (os/find-program program default-directory #!optional error? exec-path)
+(define (os/find-program program default-directory #!optional exec-path error?)
   (let ((namestring
         (let ((exec-path
                (if (default-object? exec-path)