mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-17 09:10:22 +02:00
Code Activity

(scm_make_memoized): Restore use of SCM_UNPACK.

Browse source
This commit is contained in:
Neil Jerram 2005-03-24 07:30:19 +00:00
parent c29748cdfe
commit d193b04b7b
2 changed files with 5 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

4
libguile/ChangeLog
View file

@ -1,3 +1,7 @@
2005-03-24 Neil Jerram <neil@ossau.uklinux.net>
* debug.c (scm_make_memoized): Restore use of SCM_UNPACK.
2005-03-23 Neil Jerram <neil@ossau.uklinux.net> 2005-03-23 Neil Jerram <neil@ossau.uklinux.net>
* debug.c (scm_make_memoized): Remove unnecessary critical * debug.c (scm_make_memoized): Remove unnecessary critical

2
libguile/debug.c
View file

@ -147,7 +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. */
SCM_RETURN_NEWSMOB (scm_tc16_memoized, scm_cons (exp, env)); SCM_RETURN_NEWSMOB (scm_tc16_memoized, SCM_UNPACK (scm_cons (exp, env)));
} }
#ifdef GUILE_DEBUG #ifdef GUILE_DEBUG