mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-18 18:40:22 +02:00
Code Activity

*** empty log message ***

Browse source
This commit is contained in:
Keisuke Nishida 2001-04-19 03:09:27 +00:00
parent 8f5cfc810f
commit f21dfea659
12 changed files with 93 additions and 59 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/vm.c
View file

@ -328,7 +328,7 @@ vm_mark (SCM obj)
if (SCM_NIMP (*sp))
scm_gc_mark (*sp);
fp = SCM_VM_STACK_ADDRESS (sp[-1]); /* dynamic link */
/* Mark frame variables + program */
/* Mark external link, frame variables, and program */
for (sp -= 2; sp >= lower; sp--)
if (SCM_NIMP (*sp))
scm_gc_mark (*sp);