Parent Directory | Revision Log | Patch
revision 1.254 by ossau, Tue Jan 22 23:31:38 2002 UTC | revision 1.255 by dirk, Fri Mar 1 00:19:20 2002 UTC | |
---|---|---|
# | Line 3836 scm_closure (SCM code, SCM env) | Line 3836 scm_closure (SCM code, SCM env) |
3836 | { | { |
3837 | SCM z; | SCM z; |
3838 | SCM closcar = scm_cons (code, SCM_EOL); | SCM closcar = scm_cons (code, SCM_EOL); |
3839 | z = scm_alloc_cell (SCM_UNPACK (closcar) + scm_tc3_closure, | z = scm_cell (SCM_UNPACK (closcar) + scm_tc3_closure, (scm_t_bits) env); |
(scm_t_bits) env); | ||
3840 | scm_remember_upto_here (closcar); | scm_remember_upto_here (closcar); |
3841 | return z; | return z; |
3842 | } | } |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |