Mercurial > hg > xemacs-beta
diff src/lread.c @ 440:8de8e3f6228a r21-2-28
Import from CVS: tag r21-2-28
| author | cvs |
|---|---|
| date | Mon, 13 Aug 2007 11:33:38 +0200 |
| parents | 3ecd8885ac67 |
| children | abe6d1db359e |
line wrap: on
line diff
--- a/src/lread.c Mon Aug 13 11:32:27 2007 +0200 +++ b/src/lread.c Mon Aug 13 11:33:38 2007 +0200 @@ -2036,6 +2036,7 @@ { unsigned_char_dynarr *dyn = Dynarr_new (unsigned_char); Emchar c; + Lisp_Object val; while (1) { @@ -2048,8 +2049,12 @@ if (c >= 0) unreadchar (readcharfun, c); - return make_bit_vector_from_byte_vector (Dynarr_atp (dyn, 0), - Dynarr_length (dyn)); + val = make_bit_vector_from_byte_vector (Dynarr_atp (dyn, 0), + Dynarr_length (dyn)); + + Dynarr_free (dyn); + + return val; } @@ -2997,7 +3002,7 @@ i < len; i++, p++) { - struct Lisp_Cons *otem = XCONS (tem); + Lisp_Cons *otem = XCONS (tem); tem = Fcar (tem); *p = tem; tem = otem->cdr; @@ -3029,7 +3034,7 @@ for (iii = 0; CONSP (stuff); iii++) { - struct Lisp_Cons *victim = XCONS (stuff); + Lisp_Cons *victim = XCONS (stuff); make_byte_code_args[iii] = Fcar (stuff); if ((purify_flag || load_force_doc_strings) && CONSP (make_byte_code_args[iii])