fixed a few comments to refer to scheme.c rather than main.c

externs.h, globals.h, thread.c

original commit: 1a05b09f421fb19d38f3fdfa1f8485fc7943068b

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

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 */

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;

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; {