diff options
author | Ludovic Courtès <ludo@gnu.org> | 2007-12-08 16:00:56 +0000 |
---|---|---|
committer | Ludovic Courtès <ludo@gnu.org> | 2007-12-08 16:00:56 +0000 |
commit | 9cc37597af1efcb2e60cc07e82e4d6d8fa874e6e (patch) | |
tree | d493c16159ad39ac2b8c21b4b8bc813ab3b9d2bb /libguile/validate.h | |
parent | 693758d5a84cac257ae39d69dbade694d2f4f515 (diff) | |
download | guile-9cc37597af1efcb2e60cc07e82e4d6d8fa874e6e.tar.gz |
Changes from arch/CVS synchronization
Diffstat (limited to 'libguile/validate.h')
-rw-r--r-- | libguile/validate.h | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/libguile/validate.h b/libguile/validate.h index e23e83ad8..365db3693 100644 --- a/libguile/validate.h +++ b/libguile/validate.h @@ -3,7 +3,7 @@ #ifndef SCM_VALIDATE_H #define SCM_VALIDATE_H -/* Copyright (C) 1999,2000,2001, 2002, 2004, 2006 Free Software Foundation, Inc. +/* Copyright (C) 1999,2000,2001, 2002, 2004, 2006, 2007 Free Software Foundation, Inc. * * This library is free software; you can redistribute it and/or * modify it under the terms of the GNU Lesser General Public @@ -99,8 +99,10 @@ #define SCM_OUT_OF_RANGE(pos, arg) \ do { scm_out_of_range_pos (FUNC_NAME, arg, scm_from_int (pos)); } while (0) -#define SCM_ASSERT_RANGE(pos, arg, f) \ - do { if (!(f)) scm_out_of_range_pos (FUNC_NAME, arg, scm_from_int (pos)); } while (0) +#define SCM_ASSERT_RANGE(pos, arg, f) \ + do { if (SCM_UNLIKELY (!(f))) \ + scm_out_of_range_pos (FUNC_NAME, arg, scm_from_int (pos)); } \ + while (0) #define SCM_MUST_MALLOC_TYPE(type) \ ((type *) scm_must_malloc (sizeof (type), FUNC_NAME)) |