mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-12 06:41:13 +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> 2002-07-12 Gary Houston <ghouston@arglist.com>
* dynl.c: Don't define stub procedures if DYNAMIC_LINKING is not * 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); z = scm_cons (n, SCM_UNSPECIFIED);
ls = scm_cons (scm_sym_define, z); ls = scm_cons (scm_sym_define, z);
if (!SCM_NULLP (env)) 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; break;
} }
case SCM_BIT8(SCM_MAKISYM (0)): case SCM_BIT8(SCM_MAKISYM (0)):