diff options
author | Dirk Herrmann <dirk@dirk-herrmanns-seiten.de> | 2001-08-31 12:13:50 +0000 |
---|---|---|
committer | Dirk Herrmann <dirk@dirk-herrmanns-seiten.de> | 2001-08-31 12:13:50 +0000 |
commit | dee01b012cd5179b70a2e361ee08c364ed9f3314 (patch) | |
tree | 342478de9cb5237437a734aa88b7c9fe26533845 /libguile/vectors.h | |
parent | b29058ffee392969b448f8157afaf370c17a736c (diff) | |
download | guile-dee01b012cd5179b70a2e361ee08c364ed9f3314.tar.gz |
* Removed deprecated stuff.
* Some more renamings to SCM_<filename>_H.
Diffstat (limited to 'libguile/vectors.h')
-rw-r--r-- | libguile/vectors.h | 17 |
1 files changed, 5 insertions, 12 deletions
diff --git a/libguile/vectors.h b/libguile/vectors.h index 83ef491b4..0d98f9c5c 100644 --- a/libguile/vectors.h +++ b/libguile/vectors.h @@ -2,18 +2,19 @@ #ifndef SCM_VECTORS_H #define SCM_VECTORS_H + /* Copyright (C) 1995,1996,1998,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 * the Free Software Foundation; either version 2, or (at your option) * any later version. - * + * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. - * + * * You should have received a copy of the GNU General Public License * along with this software; see the file COPYING. If not, write to * the Free Software Foundation, Inc., 59 Temple Place, Suite 330, @@ -49,7 +50,7 @@ -#define SCM_VECTORP(x) (SCM_NIMP (x) && (SCM_TYP7S (x) == scm_tc7_vector)) +#define SCM_VECTORP(x) (!SCM_IMP (x) && (SCM_TYP7S (x) == scm_tc7_vector)) #define SCM_VECTOR_BASE(x) ((scm_t_bits *) SCM_CELL_WORD_1 (x)) #define SCM_SET_VECTOR_BASE(v, b) (SCM_SET_CELL_WORD_1 ((v), (b))) #define SCM_VECTOR_MAX_LENGTH ((1L << 24) - 1) @@ -89,14 +90,6 @@ extern SCM scm_vector_move_right_x (SCM vec1, SCM start1, SCM end1, SCM vec2, SCM start2); extern void scm_init_vectors (void); - - -#if (SCM_DEBUG_DEPRECATED == 0) - -extern SCM scm_vector_set_length_x (SCM vect, SCM len); - -#endif /* SCM_DEBUG_DEPRECATED == 0 */ - #endif /* SCM_VECTORS_H */ /* |