Parent Directory | Revision Log | 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)): |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |