summaryrefslogtreecommitdiff
path: root/libguile/validate.h
diff options
context:
space:
mode:
authorDirk Herrmann <dirk@dirk-herrmanns-seiten.de>2001-04-10 07:57:05 +0000
committerDirk Herrmann <dirk@dirk-herrmanns-seiten.de>2001-04-10 07:57:05 +0000
commite4b265d817c6758441bbfc66730cae98eabde9b5 (patch)
tree401f2628ddf4bcab2a6c72023daba0c8b0aa03eb /libguile/validate.h
parent40f83c3e1b5cb1d440f785d857981417c5fa6f85 (diff)
downloadguile-e4b265d817c6758441bbfc66730cae98eabde9b5.tar.gz
* Avoid redundant casting of argument numbers to char* and vice versa.
Diffstat (limited to 'libguile/validate.h')
-rw-r--r--libguile/validate.h14
1 files changed, 7 insertions, 7 deletions
diff --git a/libguile/validate.h b/libguile/validate.h
index 0a147df49..e2699b255 100644
--- a/libguile/validate.h
+++ b/libguile/validate.h
@@ -1,5 +1,5 @@
-/* $Id: validate.h,v 1.30 2001-03-17 13:34:21 dirk Exp $ */
-/* Copyright (C) 1999, 2000 Free Software Foundation, Inc.
+/* $Id: validate.h,v 1.31 2001-04-10 07:57:05 dirk Exp $ */
+/* Copyright (C) 1999,2000,2001 Free Software Foundation, Inc.
*
* This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
@@ -61,15 +61,15 @@
#define SCM_WRONG_TYPE_ARG(pos, obj) \
do { scm_wrong_type_arg (FUNC_NAME, pos, obj); } while (0)
-#define SCM_NUM2ULONG(pos, arg) (scm_num2ulong (arg, (char *) pos, FUNC_NAME))
+#define SCM_NUM2ULONG(pos, arg) (scm_num2ulong (arg, pos, FUNC_NAME))
-#define SCM_NUM2LONG(pos, arg) (scm_num2long (arg, (char *) pos, FUNC_NAME))
+#define SCM_NUM2LONG(pos, arg) (scm_num2long (arg, pos, FUNC_NAME))
#define SCM_NUM2LONG_DEF(pos, arg, def) \
- (SCM_UNBNDP (arg) ? def : scm_num2long (arg, (char *) pos, FUNC_NAME))
+ (SCM_UNBNDP (arg) ? def : scm_num2long (arg, pos, FUNC_NAME))
#define SCM_NUM2LONG_LONG(pos, arg) \
- (scm_num2long_long (arg, (char *) pos, FUNC_NAME))
+ (scm_num2long_long (arg, pos, FUNC_NAME))
#define SCM_OUT_OF_RANGE(pos, arg) \
do { scm_out_of_range_pos (FUNC_NAME, arg, SCM_MAKINUM (pos)); } while (0)
@@ -162,7 +162,7 @@
#define SCM_VALIDATE_LONG_COPY(pos, k, cvar) \
do { \
- cvar = SCM_NUM2LONG(pos, k); \
+ cvar = SCM_NUM2LONG (pos, k); \
} while (0)
#define SCM_VALIDATE_BIGINT(pos, k) SCM_MAKE_VALIDATE (pos, k, BIGP)