2002-11-13 Andrew Cagney <cagney@redhat.com>

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

diff --git a/gdb/scm-lang.c b/gdb/scm-lang.c
index 318a51d9def8984c9f52b39ba980c3882a241c76..5b2f0c5b6653733b5534a661f4b6f402ec506256 100644 (file)
--- a/gdb/scm-lang.c
+++ b/gdb/scm-lang.c
@@ -134,8 +134,7 @@ scm_unpack (struct type *type, char *valaddr, enum type_code context)
 static int
 in_eval_c (void)
 {
-  struct symtab_and_line cursal =
-         get_current_or_default_source_symtab_and_line ();
+  struct symtab_and_line cursal = get_current_source_symtab_and_line ();
   
   if (cursal.symtab && cursal.symtab->filename)
     {