From aa6a006e39e988b747dc7e6a43f569e0349421cf Mon Sep 17 00:00:00 2001
From: dybvig <dyb@scheme.com>
Date: Mon, 13 Mar 2017 11:25:25 -0400
Subject: [PATCH] fixed a few comments to refer to scheme.c rather than main.c 
  externs.h, globals.h, thread.c

original commit: 1a05b09f421fb19d38f3fdfa1f8485fc7943068b
---
 LOG         | 2 ++
 c/externs.h | 2 +-
 c/globals.h | 4 ++--
 c/thread.c  | 4 ++--
 4 files changed, 7 insertions(+), 5 deletions(-)

diff --git a/LOG b/LOG
index b06f9799c0..527b7c683e 100644
--- a/LOG
+++ b/LOG
@@ -368,3 +368,5 @@
   now treated essentially like fxvectors, strings, and bytevectors.
     cmacros.ss, cpnanopass.ss, prims.ss, mkheader.ss,
     alloc.c, gc.c, scheme.c
+- fixed a few comments to refer to scheme.c rather than main.c
+    externs.h, globals.h, thread.c
diff --git a/c/externs.h b/c/externs.h
index a0fbbc92c6..fa76f19a9d 100644
--- a/c/externs.h
+++ b/c/externs.h
@@ -206,7 +206,7 @@ extern s_thread_cond_t *S_make_condition PROTO((void));
 extern void S_condition_wait PROTO((s_thread_cond_t *c, scheme_mutex_t *m));
 #endif
 
-/* main.c */
+/* scheme.c */
 extern void S_generic_invoke PROTO((ptr tc, ptr code));
 
 /* number.c */
diff --git a/c/globals.h b/c/globals.h
index 8815f80e96..c48469b326 100644
--- a/c/globals.h
+++ b/c/globals.h
@@ -24,7 +24,7 @@ EXTERN uptr S_checkheap_errors;
 EXTERN ptr S_child_processes[static_generation+1];
 #endif /* WIN32 */
 
-/* main.c */
+/* scheme.c */
 EXTERN IBOOL S_boot_time;
 EXTERN IBOOL S_errors_to_console;
 EXTERN ptr S_threads;
@@ -64,7 +64,7 @@ EXTERN ptr S_foreign_dynamic;
 
 /* globals that do need to be preserved in a saved heap */
 EXTERN struct {
-  /* main.c */
+  /* scheme.c */
     double thread_context[size_tc / sizeof(double)];
     ptr active_threads_id;
     ptr error_invoke_code_object;
diff --git a/c/thread.c b/c/thread.c
index 7e56dd04a9..8ebf2e3062 100644
--- a/c/thread.c
+++ b/c/thread.c
@@ -28,7 +28,7 @@ void S_thread_init() {
     S_G.threadno = FIX(0);
 
 #ifdef PTHREADS
-   /* this is also reset in main.c after heap restoration */
+   /* this is also reset in scheme.c after heap restoration */
     s_thread_mutex_init(&S_tc_mutex.pmutex);
     S_tc_mutex.owner = s_thread_self();
     S_tc_mutex.count = 0;
@@ -44,7 +44,7 @@ void S_thread_init() {
    when there is no current thread.  we have to avoid thread-local
    allocation in at least the latter case, so we call vector_in and
    cons_in and arrange for S_thread to use find_room rather than
-   thread_find_room.  main.c does part of the initialization of the
+   thread_find_room.  scheme.c does part of the initialization of the
    base thread (e.g., parameters, current input/output ports) in one
    or more places. */
 ptr S_create_thread_object(who, p_tc) const char *who; ptr p_tc; {