diff options
Diffstat (limited to 'libguile/atomic.h')
-rw-r--r-- | libguile/atomic.h | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/libguile/atomic.h b/libguile/atomic.h index 9a33f8d1a..0b19d9a83 100644 --- a/libguile/atomic.h +++ b/libguile/atomic.h @@ -1,7 +1,7 @@ #ifndef SCM_ATOMIC_H #define SCM_ATOMIC_H -/* Copyright (C) 2016 Free Software Foundation, Inc. +/* Copyright (C) 2016, 2018 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 License @@ -39,6 +39,12 @@ scm_atomic_box_loc (SCM obj) return SCM_CELL_OBJECT_LOC (obj, 1); } +#define SCM_VALIDATE_ATOMIC_BOX(pos, var) \ + do { \ + SCM_ASSERT_TYPE (scm_is_atomic_box (var), var, pos, FUNC_NAME, \ + "atomic box"); \ + } while (0) + #ifdef BUILDING_LIBGUILE |