mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 03:30:27 +02:00
Code Activity

* debug.c (scm_make_iloc): Added missing "return".

Browse source
This commit is contained in:
Mikael Djurfeldt 2002-11-17 22:18:51 +00:00
parent 50a6300387
commit 4ba5f279f0
2 changed files with 8 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
libguile/ChangeLog
View file

@ -1,3 +1,7 @@
2002-11-17 Mikael Djurfeldt <mdj@linnaeus>
* debug.c (scm_make_iloc): Added missing "return".
2002-11-17 Marius Vollmer <mvo@zagadka.ping.de>
* strports.c (scm_eval_string_in_module): Validate second arg to

6
libguile/debug.c
View file

@ -1,5 +1,5 @@
/* Debugging extensions for Guile
* 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
*
* This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
@ -245,7 +245,9 @@ SCM_DEFINE (scm_make_iloc, "make-iloc", 3, 0, 0,
{
SCM_VALIDATE_INUM (1, frame);
SCM_VALIDATE_INUM (2, binding);
SCM_MAKE_ILOC (SCM_INUM (frame), SCM_INUM (binding), !SCM_FALSEP (cdrp));
return SCM_MAKE_ILOC (SCM_INUM (frame),
SCM_INUM (binding),
!SCM_FALSEP (cdrp));
}
#undef FUNC_NAME