mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 11:40:18 +02:00
Code Activity

* fluids.c (scm_fluid_set_x): Return SCM_UNSPECIFIED.

Browse source
This commit is contained in:
Mikael Djurfeldt 2000-08-24 00:23:19 +00:00
parent 2822e61232
commit 86f9f9ae85
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
libguile/fluids.c
View file

@ -176,8 +176,8 @@ SCM_DEFINE (scm_fluid_set_x, "fluid-set!", 2, 0, 0,
if (SCM_LENGTH (scm_root->fluids) <= n)
grow_fluids (scm_root, n+1);
SCM_VELTS(scm_root->fluids)[n] = value;
return value;
SCM_VELTS (scm_root->fluids)[n] = value;
return SCM_UNSPECIFIED;
}
#undef FUNC_NAME