/[guile]/guile/guile-core/libguile/debug.c
ViewVC logotype

Diff of /guile/guile-core/libguile/debug.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.104 by dirk, Sat Nov 16 16:20:14 2002 UTC revision 1.105 by mdj, Sun Nov 17 22:18:51 2002 UTC
# Line 1  Line 1 
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
# Line 245  SCM_DEFINE (scm_make_iloc, "make-iloc", Line 245  SCM_DEFINE (scm_make_iloc, "make-iloc",
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    

Legend:
Removed from v.1.104  
changed lines
  Added in v.1.105

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26