1 |
/* Debugging extensions for Guile |
/* Debugging extensions for Guile |
2 |
* Copyright (C) 1995,1996,1997,1998,1999,2000,2001 Free Software Foundation |
* Copyright (C) 1995,1996,1997,1998,1999,2000,2001, 2002 Free Software Foundation |
3 |
* |
* |
4 |
* This program is free software; you can redistribute it and/or modify |
* This program is free software; you can redistribute it and/or modify |
5 |
* it under the terms of the GNU General Public License as published by |
* it under the terms of the GNU General Public License as published by |
245 |
{ |
{ |
246 |
SCM_VALIDATE_INUM (1, frame); |
SCM_VALIDATE_INUM (1, frame); |
247 |
SCM_VALIDATE_INUM (2, binding); |
SCM_VALIDATE_INUM (2, binding); |
248 |
SCM_MAKE_ILOC (SCM_INUM (frame), SCM_INUM (binding), !SCM_FALSEP (cdrp)); |
return SCM_MAKE_ILOC (SCM_INUM (frame), |
249 |
|
SCM_INUM (binding), |
250 |
|
!SCM_FALSEP (cdrp)); |
251 |
} |
} |
252 |
#undef FUNC_NAME |
#undef FUNC_NAME |
253 |
|
|