summaryrefslogtreecommitdiff
path: root/libguile/validate.h
diff options
context:
space:
mode:
authorDirk Herrmann <dirk@dirk-herrmanns-seiten.de>2001-03-04 22:48:13 +0000
committerDirk Herrmann <dirk@dirk-herrmanns-seiten.de>2001-03-04 22:48:13 +0000
commit276dd6775cbb0fef46a7e75d3c004c4db1590703 (patch)
tree4b580ec2462b2b54fb9127324da78aaaa315b447 /libguile/validate.h
parentb432fb4b9929475c963e8be69ed6c7293bc964d2 (diff)
downloadguile-276dd6775cbb0fef46a7e75d3c004c4db1590703.tar.gz
* Eliminate another couple of calls to scm_wta.
Diffstat (limited to 'libguile/validate.h')
-rw-r--r--libguile/validate.h16
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)