* cli/cli-cmds.c (shell_escape): Silence warnings from old

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

diff --git a/gdb/scm-lang.c b/gdb/scm-lang.c
index 1af501d582917b8b1e18ac40e151dd20a7a1d33f..0a59ea94aeb883b2ddc577bbffa4cf31cf380e49 100644 (file)
--- a/gdb/scm-lang.c
+++ b/gdb/scm-lang.c
@@ -167,7 +167,7 @@ scm_lookup_name (char *str)
   if (in_eval_c ()
       && (sym = lookup_symbol ("env",
                               expression_context_block,
-                              VAR_NAMESPACE, (int *) NULL,
+                              VAR_DOMAIN, (int *) NULL,
                               (struct symtab **) NULL)) != NULL)
     args[2] = value_of_variable (sym, expression_context_block);
   else
@@ -181,7 +181,7 @@ scm_lookup_name (char *str)
 
   sym = lookup_symbol (str,
                       expression_context_block,
-                      VAR_NAMESPACE, (int *) NULL,
+                      VAR_DOMAIN, (int *) NULL,
                       (struct symtab **) NULL);
   if (sym)
     return value_of_variable (sym, NULL);
@@ -252,6 +252,8 @@ const struct language_defn scm_language_defn =
   scm_val_print,               /* Print a value using appropriate syntax */
   scm_value_print,             /* Print a top-level value */
   NULL,                                /* Language specific skip_trampoline */
+  value_of_this,               /* value_of_this */
+  basic_lookup_symbol_nonlocal,        /* lookup_symbol_nonlocal */
   NULL,                                /* Language specific symbol demangler */
   {"", "", "", ""},            /* Binary format info */
   {"#o%lo", "#o", "o", ""},    /* Octal format info */