| author | Camm Maguire <camm@debian.org> | 2014年09月11日 22:48:38 -0400 |
|---|---|---|
| committer | Camm Maguire <camm@debian.org> | 2014年09月11日 22:48:38 -0400 |
| commit | e8e101042d26c124c0313613977ac2d11b42e700 (patch) | |
| tree | 8bfdc61f103d103f7263661e1fd0a7c1f2a66788 | |
| parent | d52ffca9cd3a21bef233f3a7eaec0ffb3317090e (diff) | |
| parent | 847449a41b38a470995e705724c0bac47715b507 (diff) | |
| download | gcl-e8e101042d26c124c0313613977ac2d11b42e700.tar.gz | |
| -rwxr-xr-x | gcl/o/cfun.c | 2 |
diff --git a/gcl/o/cfun.c b/gcl/o/cfun.c index 379af00f9..2639d34c1 100755 --- a/gcl/o/cfun.c +++ b/gcl/o/cfun.c @@ -336,7 +336,7 @@ turbo_closure(object fun) {BEGIN_NO_INTERRUPT; for (n = 0, l = fun->cc.cc_env; !endp(l); n++, l = l->c.c_cdr); { - block= AR_ALLOC(alloc_contblock,(1+n),object); + block= AR_ALLOC(alloc_relblock,(1+n),object); *block=make_fixnum(n); fun->cc.cc_turbo = block+1; /* equivalent to &block[1] */ for (n = 0, l = fun->cc.cc_env; !endp(l); n++, l = l->c.c_cdr) |