1 |
/* Copyright (C) 1995, 1996, 1997, 1998, 2000 Free Software Foundation, Inc. |
/* Copyright (C) 1995, 1996, 1997, 1998, 2000, 2002 Free Software Foundation, Inc. |
2 |
* |
* |
3 |
* This program is free software; you can redistribute it and/or modify |
* This program is free software; you can redistribute it and/or modify |
4 |
* it under the terms of the GNU General Public License as published by |
* it under the terms of the GNU General Public License as published by |
101 |
All the evaluation rules for dynamic roots apply to threads. |
All the evaluation rules for dynamic roots apply to threads. |
102 |
*/ |
*/ |
103 |
|
|
104 |
|
SCM_REGISTER_PROC(s_current_thread, "current-thread", 0, 0, 0, scm_current_thread); |
105 |
|
SCM_REGISTER_PROC(s_all_thread, "all-threads", 0, 0, 0, scm_all_threads); |
106 |
|
|
107 |
SCM_REGISTER_PROC(s_join_thread, "join-thread", 1, 0, 0, scm_join_thread); |
SCM_REGISTER_PROC(s_join_thread, "join-thread", 1, 0, 0, scm_join_thread); |
108 |
/* Suspend execution of the calling thread until the target @var{thread} |
/* Suspend execution of the calling thread until the target @var{thread} |
109 |
terminates, unless the target @var{thread} has already terminated. |
terminates, unless the target @var{thread} has already terminated. |