diff options
author | Dirk Herrmann <dirk@dirk-herrmanns-seiten.de> | 2001-04-10 07:57:05 +0000 |
---|---|---|
committer | Dirk Herrmann <dirk@dirk-herrmanns-seiten.de> | 2001-04-10 07:57:05 +0000 |
commit | e4b265d817c6758441bbfc66730cae98eabde9b5 (patch) | |
tree | 401f2628ddf4bcab2a6c72023daba0c8b0aa03eb /libguile/validate.h | |
parent | 40f83c3e1b5cb1d440f785d857981417c5fa6f85 (diff) | |
download | guile-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.h | 14 |
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) |