mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-07-02 23:50:47 +02:00
Code Activity

Give continuations (contregs) their own static tc16

Browse source 
* libguile/continuations-internal.h: New file, for internal definitions.
* libguile/continuations.h: Move out internal definitions.
* libguile/Makefile.am: Add new file.
* libguile/continuations.c: Adapt to put the tag in the beginning of the
continuation (contregs) structure.
* libguile/eq.c:
* libguile/goops.c:
* libguile/init.c:
* libguile/print.c:
* libguile/scm.h:
* libguile/stacks.c:
* libguile/vm.c:
* module/oop/goops.scm: Adapt to contregs tc16 change.
This commit is contained in:
Andy Wingo 2025-06-13 13:13:02 +02:00
parent f47fe6e752
commit 12da6739b1
12 changed files with 156 additions and 133 deletions
Download patch file Download diff file Expand all files Collapse all files

1
libguile/eq.c
View file

@ -390,6 +390,7 @@ scm_equal_p (SCM x, SCM y)
return scm_from_bool (scm_i_char_sets_equal (x, y));
case scm_tc16_condition_variable:
case scm_tc16_mutex:
case scm_tc16_continuation:
return SCM_BOOL_F;
default:
abort ();