summaryrefslogtreecommitdiff
path: root/libguile/read.c
diff options
context:
space:
mode:
Diffstat (limited to 'libguile/read.c')
-rw-r--r--libguile/read.c4
1 files changed, 3 insertions, 1 deletions
diff --git a/libguile/read.c b/libguile/read.c
index 775612a58..a81189f0b 100644
--- a/libguile/read.c
+++ b/libguile/read.c
@@ -1088,8 +1088,10 @@ scm_read_extended_symbol (scm_t_wchar chr, SCM port)
if (len >= scm_i_string_length (buf) - 2)
{
+ SCM addy;
+
scm_i_string_stop_writing ();
- SCM addy = scm_i_make_string (1024, NULL);
+ addy = scm_i_make_string (1024, NULL);
buf = scm_string_append (scm_list_2 (buf, addy));
len = 0;
buf = scm_i_string_start_writing (buf);