From: Chris Hanson <org/chris-hanson/cph>
Date: Sat, 1 Dec 1990 00:06:43 +0000 (+0000)
Subject: Make the `search_path_for_file' procedure be non-static.
X-Git-Tag: 20090517-FFI~10994
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=b5fa2f234018e1c3083079145377292ca9a955ea;p=mit-scheme.git

Make the `search_path_for_file' procedure be non-static.
---

diff --git a/v7/src/microcode/option.c b/v7/src/microcode/option.c
index 28d5ad022..1ae892767 100644
--- a/v7/src/microcode/option.c
+++ b/v7/src/microcode/option.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/option.c,v 1.7 1990/11/28 20:32:51 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/option.c,v 1.8 1990/12/01 00:06:43 cph Rel $
 
 Copyright (c) 1990 Massachusetts Institute of Technology
 
@@ -654,7 +654,7 @@ DEFUN (free_parsed_path, (path), CONST char ** path)
   xfree (path);
 }
 
-static CONST char *
+CONST char *
 DEFUN (search_path_for_file, (option, filename, default_p),
        CONST char * option AND
        CONST char * filename AND
@@ -669,10 +669,11 @@ DEFUN (search_path_for_file, (option, filename, default_p),
       CONST char * fullname;
       if (directory == 0)
 	{
-	  fprintf (stderr, "%s: can't find readable %s for %s option.\n",
-		   scheme_program_name,
-		   (default_p ? "default" : "file"),
-		   option);
+	  fprintf (stderr, "%s: can't find readable %s",
+		   scheme_program_name, (default_p ? "default" : "file"));
+	  if (option != 0)
+	    fprintf (stderr, " for %s option", option);
+	  fprintf (stderr, ".\n");
 	  fprintf (stderr, "    searched for file %s in these directories:\n",
 		   filename);
 	  if (!default_p)
diff --git a/v7/src/microcode/option.h b/v7/src/microcode/option.h
index 8e52e6416..6bfd1dccb 100644
--- a/v7/src/microcode/option.h
+++ b/v7/src/microcode/option.h
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/option.h,v 1.1 1990/11/13 08:46:44 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/option.h,v 1.2 1990/12/01 00:06:31 cph Rel $
 
 Copyright (c) 1990 Massachusetts Institute of Technology
 
@@ -61,5 +61,8 @@ extern unsigned int option_constant_size;
 extern unsigned int option_stack_size;
 
 extern void EXFUN (read_command_line_options, (int argc, CONST char ** argv));
+extern CONST char * EXFUN
+  (search_path_for_file,
+   (CONST char * option, CONST char * filename, int default_p));
 
 #endif /* SCM_OPTION_H */