mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-02 04:40:29 +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

5
libguile/ChangeLog
View file

@ -1,3 +1,8 @@
2005-03-23 Neil Jerram <neil@ossau.uklinux.net>
* debug.c (scm_make_memoized): Remove unnecessary critical
section, and simplify by using SCM_RETURN_NEWSMOB.
2005-03-20 Mikael Djurfeldt <djurfeldt@nada.kth.se> 2005-03-20 Mikael Djurfeldt <djurfeldt@nada.kth.se>
* strings.h (SCM_STRING_UCHARS): Added missing argument. * strings.h (SCM_STRING_UCHARS): Added missing argument.

7
libguile/debug.c
View file

@ -147,12 +147,7 @@ SCM
scm_make_memoized (SCM exp, SCM env) scm_make_memoized (SCM exp, SCM env)
{ {
/* *fixme* Check that env is a valid environment. */ /* *fixme* Check that env is a valid environment. */
register SCM z, ans; SCM_RETURN_NEWSMOB (scm_tc16_memoized, scm_cons (exp, env));
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;
} }
#ifdef GUILE_DEBUG #ifdef GUILE_DEBUG