diff options
author | Dirk Herrmann <dirk@dirk-herrmanns-seiten.de> | 2001-02-28 16:58:12 +0000 |
---|---|---|
committer | Dirk Herrmann <dirk@dirk-herrmanns-seiten.de> | 2001-02-28 16:58:12 +0000 |
commit | 23deee81615f68d606381dba5880d0a3fe1dbd51 (patch) | |
tree | bdf7bda38c3e23d0acde3239e6cbc826c4f89195 /libguile/validate.h | |
parent | 1b5b19c9a927ed433a14315cb1f2db4fc99f939d (diff) | |
download | guile-23deee81615f68d606381dba5880d0a3fe1dbd51.tar.gz |
* Minor fixes to error checking macros.
Diffstat (limited to 'libguile/validate.h')
-rw-r--r-- | libguile/validate.h | 4 |
1 files changed, 2 insertions, 2 deletions
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)) |