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 28d5ad02227fe56488eee7adb068b7bba44bcabb..1ae892767532021a44eac6f00bd10efa2a19224a 100644 (file)
--- 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);
 }
 \f
-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 8e52e6416faf3d704fc274b6a1162c6767311e31..6bfd1dccb3d3141adecc4ddfd9fc7cf86d2c83b9 100644 (file)
--- 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 */