diff options
author | Andy Wingo <wingo@pobox.com> | 2018-06-17 09:42:19 +0200 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2018-06-17 13:41:03 +0200 |
commit | f6ec873a8be7190a44e247022754755f501ef7e1 (patch) | |
tree | 5fbed2bf732a409450dfe9d54a72f5270121e904 /libguile/array-map.c | |
parent | 2f39771c845c3fa288bf34416f9649d5fde9c814 (diff) | |
download | guile-f6ec873a8be7190a44e247022754755f501ef7e1.tar.gz |
Move "min" and "max" macros out of _scm.h
* libguile/_scm.h: Remove definitions of min and max macros.
* libguile/array-map.c (MAX):
* libguile/foreign.c (MAX):
* libguile/numbers.c (MIN):
* libguile/quicksort.i.c (MIN):
* libguile/socket.c (MAX):
* libguile/strports.c (MAX): Inline definitions into callers. We're
going to remove _scm.h, which will pay off this duplication.
Diffstat (limited to 'libguile/array-map.c')
-rw-r--r-- | libguile/array-map.c | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/libguile/array-map.c b/libguile/array-map.c index 29e4aa785..c24b08837 100644 --- a/libguile/array-map.c +++ b/libguile/array-map.c @@ -1,5 +1,5 @@ -/* Copyright (C) 1996, 1998, 2000, 2001, 2004, 2005, 2006, 2008, 2009, - * 2010, 2011, 2012, 2013, 2014, 2015 Free Software Foundation, Inc. +/* Copyright (C) 1996,1998,2000-2001,2004-2006,2008-2015,2018 + * 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 @@ -85,6 +85,7 @@ cindk (SCM ra, ssize_t *ve, int kend) #define LBND(ra, k) SCM_I_ARRAY_DIMS (ra)[k].lbnd #define UBND(ra, k) SCM_I_ARRAY_DIMS (ra)[k].ubnd +#define MAX(A, B) ((A) >= (B) ? (A) : (B)) /* scm_ramapc() always calls cproc with rank-1 arrays created by @@ -107,7 +108,7 @@ scm_ramapc (void *cproc_ptr, SCM data, SCM ra0, SCM lra, const char *what) va0 = make1array (SCM_I_ARRAY_V (ra0), inc); /* Find unroll depth */ - for (kroll = max(0, kmax); kroll > 0; --kroll) + for (kroll = MAX (0, kmax); kroll > 0; --kroll) { inc *= (UBND (ra0, kroll) - LBND (ra0, kroll) + 1); if (inc != SCM_I_ARRAY_DIMS (ra0)[kroll-1].inc) |