wingo pushed a commit to branch wip-whippet
in repository guile.

commit 8b2b0d52d8aab89b2a2dcd268e370bcc266acbd1
Author: Andy Wingo <wi...@pobox.com>
AuthorDate: Mon Jun 30 09:45:51 2025 +0200

    Remove "result" member from struct scm_thread
    
    * libguile/threads-internal.h:
    * libguile/threads.c (scm_trace_thread, guilify_self_1, really_launch):
    Remove "result".  Replaced by join_results.
---
 libguile/threads-internal.h | 1 -
 libguile/threads.c          | 6 +-----
 2 files changed, 1 insertion(+), 6 deletions(-)

diff --git a/libguile/threads-internal.h b/libguile/threads-internal.h
index c6f6c1cd9..96c307437 100644
--- a/libguile/threads-internal.h
+++ b/libguile/threads-internal.h
@@ -59,7 +59,6 @@ struct scm_thread {
 
   scm_i_pthread_t pthread;
 
-  SCM result;
   int exited;
 
   /* Boolean indicating whether the thread is in guile mode.  */
diff --git a/libguile/threads.c b/libguile/threads.c
index 4bfa2702c..0226dd750 100644
--- a/libguile/threads.c
+++ b/libguile/threads.c
@@ -99,8 +99,6 @@ scm_trace_thread (struct scm_thread *thread,
 
   trace_edge (gc_edge (&thread->pending_asyncs), heap, trace_data);
 
-  trace_edge (gc_edge (&thread->result), heap, trace_data);
-
   /* FIXME: Use scm_trace_dynamic_state or so.  */
   // trace_edge (gc_edge (&thread->dynamic_state), heap, trace_data);
 
@@ -418,7 +416,6 @@ guilify_self_1 (struct gc_mutator *mut, struct 
gc_stack_addr base,
 
   t->tag = scm_tc7_thread;
   t->pthread = scm_i_pthread_self ();
-  t->result = SCM_BOOL_F;
   t->pending_asyncs = SCM_EOL;
   t->block_asyncs = 1;
   t->mutator = mut;
@@ -787,8 +784,7 @@ really_launch (void *d)
   scm_thread *t = SCM_I_CURRENT_THREAD;
   /* The thread starts with asyncs blocked.  */
   t->block_asyncs++;
-  SCM_I_CURRENT_THREAD->result =
-    scm_call_0 (scm_i_vector_ref (data, LAUNCH_DATA_THUNK));
+  scm_call_0 (scm_i_vector_ref (data, LAUNCH_DATA_THUNK));
   return 0;
 }
 

Reply via email to