mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-28 16:00:22 +02:00
Code Activity

fix to gdb_eval to use newer interfaces

Browse source 
* libguile/gdbint.c (gdb_eval): Use scm_primitive_eval instead of
  scm_i_eval_x.
This commit is contained in:
Andy Wingo 2009-11-27 20:43:22 +01:00
parent a3e923770e
commit c2c4e28198
1 changed files with 2 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

5
libguile/gdbint.c
View file

@ -1,5 +1,5 @@
/* GDB interface for Guile /* GDB interface for Guile
* Copyright (C) 1996,1997,1999,2000,2001,2002,2004 * Copyright (C) 1996,1997,1999,2000,2001,2002,2004,2009
* Free Software Foundation, Inc. * Free Software Foundation, Inc.
* *
* This library is free software; you can redistribute it and/or * This library is free software; you can redistribute it and/or
@ -190,8 +190,7 @@ gdb_eval (SCM exp)
} }
SCM_BEGIN_FOREIGN_BLOCK; SCM_BEGIN_FOREIGN_BLOCK;
{ {
SCM env = scm_top_level_env (SCM_TOP_LEVEL_LOOKUP_CLOSURE); gdb_result = scm_permanent_object (scm_primitive_eval (exp));
gdb_result = scm_permanent_object (scm_i_eval_x (exp, env));
} }
SCM_END_FOREIGN_BLOCK; SCM_END_FOREIGN_BLOCK;
return 0; return 0;