* Makefile.in (diststuff): Make all-doc; diststuff target does not

[deliverable/binutils-gdb.git] / gdb / scm-exp.c

diff --git a/gdb/scm-exp.c b/gdb/scm-exp.c
index 4c98d64d927ccd289f34dc0b2ece617deafe37b6..8df68035350523b5108d912b5a04346e7e20246e 100644 (file)
--- a/gdb/scm-exp.c
+++ b/gdb/scm-exp.c
@@ -373,6 +373,11 @@ scm_lreadr (skipping)
       if (!skipping)
        {
          str.length = lexptr - str.ptr;
+         if (str.ptr[0] == '$')
+           {
+             write_dollar_variable (str);
+             return;
+           }
          write_exp_elt_opcode (OP_NAME);
          write_exp_string (str);
          write_exp_elt_opcode (OP_NAME);