/[guile]/guile/guile-core/libguile/eval.c
ViewVC logotype

Diff of /guile/guile-core/libguile/eval.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.275 by dirk, Sun Jun 30 22:40:01 2002 UTC revision 1.276 by ossau, Sun Jul 14 15:43:24 2002 UTC
# Line 1472  unmemocopy (SCM x, SCM env) Line 1472  unmemocopy (SCM x, SCM env)
1472          z = scm_cons (n, SCM_UNSPECIFIED);          z = scm_cons (n, SCM_UNSPECIFIED);
1473          ls = scm_cons (scm_sym_define, z);          ls = scm_cons (scm_sym_define, z);
1474          if (!SCM_NULLP (env))          if (!SCM_NULLP (env))
1475            SCM_SETCAR (SCM_CAR (env), scm_cons (n, SCM_CAAR (env)));            env = scm_cons (scm_cons (scm_cons (n, SCM_CAAR (env)),
1476                                        SCM_CDAR (env)),
1477                              SCM_CDR (env));
1478          break;          break;
1479        }        }
1480      case SCM_BIT8(SCM_MAKISYM (0)):      case SCM_BIT8(SCM_MAKISYM (0)):

Legend:
Removed from v.1.275  
changed lines
  Added in v.1.276

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26