mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 11:40:18 +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
* Copyright (C) 1996,1997,1999,2000,2001,2002,2004
* Copyright (C) 1996,1997,1999,2000,2001,2002,2004,2009
* Free Software Foundation, Inc.
*
* This library is free software; you can redistribute it and/or
@ -190,8 +190,7 @@ gdb_eval (SCM exp)
}
SCM_BEGIN_FOREIGN_BLOCK;
{
SCM env = scm_top_level_env (SCM_TOP_LEVEL_LOOKUP_CLOSURE);
gdb_result = scm_permanent_object (scm_i_eval_x (exp, env));
gdb_result = scm_permanent_object (scm_primitive_eval (exp));
}
SCM_END_FOREIGN_BLOCK;
return 0;