diff options
author | Andy Wingo <wingo@pobox.com> | 2012-01-08 16:01:28 +0100 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2012-01-08 16:01:28 +0100 |
commit | 9a38439301aac35961e8f7e316cd02a589b5956f (patch) | |
tree | 376743313baef1af07a058c71003ff0497d8e730 /libguile/__scm.h | |
parent | 866ecf54c04c2b841f40f3a02814eeba6aeb4dee (diff) | |
download | guile-9a38439301aac35961e8f7e316cd02a589b5956f.tar.gz |
fix SCM_ASRTGO deprecation
* libguile/__scm.h (SCM_ASRTGO): Whoops, actually remove the ASRTGO
definitions here.
* libguile/deprecated.h: Fix type of scm_i_deprecated_asrtgo.
Diffstat (limited to 'libguile/__scm.h')
-rw-r--r-- | libguile/__scm.h | 6 |
1 files changed, 1 insertions, 5 deletions
diff --git a/libguile/__scm.h b/libguile/__scm.h index f5551ad7a..c4f2a1ad1 100644 --- a/libguile/__scm.h +++ b/libguile/__scm.h @@ -4,7 +4,7 @@ #define SCM___SCM_H /* Copyright (C) 1995, 1996, 1998, 1999, 2000, 2001, 2002, 2003, 2006, - * 2007, 2008, 2009, 2010, 2011 Free Software Foundation, Inc. + * 2007, 2008, 2009, 2010, 2011, 2012 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 @@ -593,7 +593,6 @@ do { \ #ifdef SCM_RECKLESS #define SCM_ASSERT(_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) \ do { if (SCM_UNLIKELY (!(_cond))) \ @@ -601,9 +600,6 @@ do { \ #define SCM_ASSERT_TYPE(_cond, _arg, _pos, _subr, _msg) \ do { if (SCM_UNLIKELY (!(_cond))) \ scm_wrong_type_arg_msg(_subr, _pos, _arg, _msg); } while (0) -#define SCM_ASRTGO(_cond, _label) \ - do { if (SCM_UNLIKELY (!(_cond))) \ - goto _label; } while (0) #endif /* |