diff options
-rw-r--r-- | libguile/ChangeLog | 7 | ||||
-rw-r--r-- | libguile/__scm.h | 2 | ||||
-rw-r--r-- | libguile/validate.h | 4 |
3 files changed, 10 insertions, 3 deletions
diff --git a/libguile/ChangeLog b/libguile/ChangeLog index 71163e693..f2717de71 100644 --- a/libguile/ChangeLog +++ b/libguile/ChangeLog @@ -1,3 +1,10 @@ +2001-02-28 Dirk Herrmann <D.Herrmann@tu-bs.de> + + * __scm.h (SCM_ASSERT_TYPE): Add missing macro parameter. + (Obviously nobody compiles with SCM_RECKLESS defined...) + + * validate.h (SCM_ASSERT_RANGE): Use the argument number. + 2001-02-23 Mikael Djurfeldt <mdj@linnaeus.mit.edu> * ports.c, ports.h (scm_c_read, scm_c_write): New functions. diff --git a/libguile/__scm.h b/libguile/__scm.h index 75a01a934..d48ae66d6 100644 --- a/libguile/__scm.h +++ b/libguile/__scm.h @@ -483,7 +483,7 @@ do { \ #ifdef SCM_RECKLESS #define SCM_ASSERT(_cond, _arg, _pos, _subr) -#define SCM_ASSERT_TYPE(_cond, _arg, _pos, _subr) +#define SCM_ASSERT_TYPE(_cond, _arg, _pos, _subr, _msg) #define SCM_ASRTGO(_cond, _label) #else #define SCM_ASSERT(_cond, _arg, _pos, _subr) \ diff --git a/libguile/validate.h b/libguile/validate.h index 2212c273e..029d7e337 100644 --- a/libguile/validate.h +++ b/libguile/validate.h @@ -1,4 +1,4 @@ -/* $Id: validate.h,v 1.25 2001-01-24 00:02:43 dirk Exp $ */ +/* $Id: validate.h,v 1.26 2001-02-28 16:58:12 dirk Exp $ */ /* Copyright (C) 1999, 2000 Free Software Foundation, Inc. * * This program is free software; you can redistribute it and/or modify @@ -83,7 +83,7 @@ do { scm_out_of_range_pos (FUNC_NAME, arg, SCM_MAKINUM (pos)); } while (0) #define SCM_ASSERT_RANGE(pos, arg, f) \ - do { if (!(f)) scm_out_of_range (FUNC_NAME, arg); } while (0) + do { if (!(f)) scm_out_of_range_pos (FUNC_NAME, arg, SCM_MAKINUM (pos)); } while (0) #define SCM_MUST_MALLOC_TYPE(type) \ ((type *) scm_must_malloc (sizeof (type), FUNC_NAME)) |