diff options
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 d8a0275bee7..39378bb11dd 100644 --- a/src/lread.c +++ b/src/lread.c | |||
| @@ -2670,13 +2670,13 @@ read1 (register Lisp_Object readcharfun, int *pch, int first_in_list) | |||
| 2670 | /* No symbol character follows, this is the empty | 2670 | /* No symbol character follows, this is the empty |
| 2671 | symbol. */ | 2671 | symbol. */ |
| 2672 | UNREAD (c); | 2672 | UNREAD (c); |
| 2673 | return Fmake_symbol (build_string ("")); | 2673 | return Fmake_symbol (empty_unibyte_string); |
| 2674 | } | 2674 | } |
| 2675 | goto read_symbol; | 2675 | goto read_symbol; |
| 2676 | } | 2676 | } |
| 2677 | /* ## is the empty symbol. */ | 2677 | /* ## is the empty symbol. */ |
| 2678 | if (c == '#') | 2678 | if (c == '#') |
| 2679 | return Fintern (build_string (""), Qnil); | 2679 | return Fintern (empty_unibyte_string, Qnil); |
| 2680 | /* Reader forms that can reuse previously read objects. */ | 2680 | /* Reader forms that can reuse previously read objects. */ |
| 2681 | if (c >= '0' && c <= '9') | 2681 | if (c >= '0' && c <= '9') |
| 2682 | { | 2682 | { |