From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 1 Feb 1999 03:42:13 +0000 (+0000)
Subject: Reverse optional arguments for OS/FIND-PROGRAM.
X-Git-Tag: 20090517-FFI~4648
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=661da9d44499eae84bbb3214ab48c6f791b26a3f;p=mit-scheme.git

Reverse optional arguments for OS/FIND-PROGRAM.
---

diff --git a/v7/src/runtime/ntprm.scm b/v7/src/runtime/ntprm.scm
index d4c1b15b9..e88b1b18e 100644
--- 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)))
 
-(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 642f93172..d29275d53 100644
--- 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))
 
-(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 c4ed54b5a..549cb01c6 100644
--- 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)