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

Fix for 1001-local-eval-error-backtrace-segfaults.

Browse source
This commit is contained in:
Neil Jerram 2002-07-14 15:43:24 +00:00
parent 33e04d5492
commit 4c5f8e8fe0
2 changed files with 9 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

6
libguile/ChangeLog
View file

@ -1,3 +1,9 @@
2002-07-13 Neil Jerram <neil@ossau.uklinux.net>
* eval.c (unmemocopy): Fix for
1001-local-eval-error-backtrace-segfaults (unmemoization crash
with internal definitions and local-eval).
2002-07-12 Gary Houston <ghouston@arglist.com>
* dynl.c: Don't define stub procedures if DYNAMIC_LINKING is not

4
libguile/eval.c
View file

@ -1472,7 +1472,9 @@ unmemocopy (SCM x, SCM env)
z = scm_cons (n, SCM_UNSPECIFIED);
ls = scm_cons (scm_sym_define, z);
if (!SCM_NULLP (env))
SCM_SETCAR (SCM_CAR (env), scm_cons (n, SCM_CAAR (env)));
env = scm_cons (scm_cons (scm_cons (n, SCM_CAAR (env)),
SCM_CDAR (env)),
SCM_CDR (env));
break;
}
case SCM_BIT8(SCM_MAKISYM (0)):