mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-07-06 09:30:29 +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> 2002-11-17 Marius Vollmer <mvo@zagadka.ping.de>
* strports.c (scm_eval_string_in_module): Validate second arg to * 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 /* 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 * 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 * 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 (1, frame);
SCM_VALIDATE_INUM (2, binding); 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 #undef FUNC_NAME