mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 03:40:34 +02:00
Code Activity

variable-unset!

Browse source 
* libguile/variable.c (scm_variable_unset_x): New function.
* libguile/variable.h (scm_variable_unset_x): New prototype.
This commit is contained in:
Brian Templeton 2010-08-14 19:00:20 -04:00 • committed by Andy Wingo
parent ef94624eaf
commit a8aa4c0b56
2 changed files with 13 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

12
libguile/variable.c
View file

@ -111,6 +111,18 @@ SCM_DEFINE (scm_variable_set_x, "variable-set!", 2, 0, 0,
}
#undef FUNC_NAME
SCM_DEFINE (scm_variable_unset_x, "variable-unset!", 1, 0, 0,
(SCM var),
"Ensure that @var{var} is not bound to a value.\n"
"@var{var} must be a variable object.")
#define FUNC_NAME s_scm_variable_unset_x
{
SCM_VALIDATE_VARIABLE (1, var);
SCM_VARIABLE_SET (var, SCM_UNDEFINED);
return SCM_UNSPECIFIED;
}
#undef FUNC_NAME
SCM_DEFINE (scm_variable_bound_p, "variable-bound?", 1, 0, 0,
(SCM var),
"Return @code{#t} iff @var{var} is bound to a value.\n"