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

(scm_make_memoized): Remove unnecessary critical

Browse source 
section, and simplify by using SCM_RETURN_NEWSMOB.
This commit is contained in:
Neil Jerram 2005-03-23 20:22:26 +00:00
parent e654b06261
commit c29748cdfe
2 changed files with 6 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

7
libguile/debug.c
View file

@ -147,12 +147,7 @@ SCM
scm_make_memoized (SCM exp, SCM env)
{
/* *fixme* Check that env is a valid environment. */
register SCM z, ans;
SCM_CRITICAL_SECTION_START;
SCM_NEWSMOB (z, SCM_UNPACK (exp), SCM_UNPACK (env));
SCM_NEWSMOB (ans, scm_tc16_memoized, SCM_UNPACK (z));
SCM_CRITICAL_SECTION_END;
return ans;
SCM_RETURN_NEWSMOB (scm_tc16_memoized, scm_cons (exp, env));
}
#ifdef GUILE_DEBUG