diff options
author | Dirk Herrmann <dirk@dirk-herrmanns-seiten.de> | 2001-03-04 22:48:13 +0000 |
---|---|---|
committer | Dirk Herrmann <dirk@dirk-herrmanns-seiten.de> | 2001-03-04 22:48:13 +0000 |
commit | 276dd6775cbb0fef46a7e75d3c004c4db1590703 (patch) | |
tree | 4b580ec2462b2b54fb9127324da78aaaa315b447 /libguile/validate.h | |
parent | b432fb4b9929475c963e8be69ed6c7293bc964d2 (diff) | |
download | guile-276dd6775cbb0fef46a7e75d3c004c4db1590703.tar.gz |
* Eliminate another couple of calls to scm_wta.
Diffstat (limited to 'libguile/validate.h')
-rw-r--r-- | libguile/validate.h | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/libguile/validate.h b/libguile/validate.h index 029d7e337..87fdb716b 100644 --- a/libguile/validate.h +++ b/libguile/validate.h @@ -1,4 +1,4 @@ -/* $Id: validate.h,v 1.26 2001-02-28 16:58:12 dirk Exp $ */ +/* $Id: validate.h,v 1.27 2001-03-04 22:48:13 dirk Exp $ */ /* Copyright (C) 1999, 2000 Free Software Foundation, Inc. * * This program is free software; you can redistribute it and/or modify @@ -54,12 +54,6 @@ #define SCM_SYSERROR_MSG(str, args, val) \ do { scm_syserror_msg (FUNC_NAME, (str), (args), (val)); } while (0) -#define SCM_WTA(pos, scm) \ - do { scm_wta (scm, (char *) pos, FUNC_NAME); } while (0) - -#define RETURN_SCM_WTA(pos, scm) \ - do { return scm_wta (scm, (char *) pos, FUNC_NAME); } while (0) - #define SCM_MISC_ERROR(str, args) \ do { scm_misc_error (FUNC_NAME, str, args); } while (0) @@ -166,7 +160,7 @@ else \ { \ cvar = 0.0; \ - SCM_WTA (pos, z); \ + SCM_WRONG_TYPE_ARG (pos, z); \ } \ } while (0) @@ -408,6 +402,12 @@ #if (SCM_DEBUG_DEPRECATED == 0) +#define SCM_WTA(pos, scm) \ + do { scm_wta (scm, (char *) pos, FUNC_NAME); } while (0) + +#define RETURN_SCM_WTA(pos, scm) \ + do { return scm_wta (scm, (char *) pos, FUNC_NAME); } while (0) + #define SCM_VALIDATE_STRINGORSUBSTR SCM_VALIDATE_STRING #define SCM_VALIDATE_ROSTRING(pos, str) SCM_MAKE_VALIDATE (pos, str, ROSTRINGP) |