diff options
| author | Stefan Monnier | 2012-06-11 11:13:27 -0400 |
|---|---|---|
| committer | Stefan Monnier | 2012-06-11 11:13:27 -0400 |
| commit | 3017f87fbd0461b9460e7261a095fc86e166b30e (patch) | |
| tree | 602f00d509104a3ff9e6ee0808396dc50afc906f /src/lread.c | |
| parent | 1b9b4cf4c1152f06153ac9c141fb9f724b984884 (diff) | |
| download | emacs-3017f87fbd0461b9460e7261a095fc86e166b30e.tar.gz emacs-3017f87fbd0461b9460e7261a095fc86e166b30e.zip | |
Don't purify in Fmake_byte_code.
* src/alloc.c (make_byte_code): New function.
(Fmake_byte_code): Use it. Don't purify here.
* src/lread.c (read1): Use it as well to avoid extra allocation.
Diffstat (limited to 'src/lread.c')
| -rw-r--r-- | src/lread.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/lread.c b/src/lread.c index 726f1f0e905..8a9088b8ed2 100644 --- a/src/lread.c +++ b/src/lread.c | |||
| @@ -2551,8 +2551,8 @@ read1 (register Lisp_Object readcharfun, int *pch, int first_in_list) | |||
| 2551 | build them using function calls. */ | 2551 | build them using function calls. */ |
| 2552 | Lisp_Object tmp; | 2552 | Lisp_Object tmp; |
| 2553 | tmp = read_vector (readcharfun, 1); | 2553 | tmp = read_vector (readcharfun, 1); |
| 2554 | return Fmake_byte_code (ASIZE (tmp), | 2554 | make_byte_code (XVECTOR (tmp)); |
| 2555 | XVECTOR (tmp)->contents); | 2555 | return tmp; |
| 2556 | } | 2556 | } |
| 2557 | if (c == '(') | 2557 | if (c == '(') |
| 2558 | { | 2558 | { |