mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-24 12:20:20 +02:00
Code Activity

* Deprecated some unused SCM_NxxxP macros.

Browse source 
* Removed conditionally compiled code depending on 'nosve'.
This commit is contained in:
Dirk Herrmann 2000-05-23 15:20:54 +00:00
parent fe517a7d3d
commit 6ba93e5e88
6 changed files with 38 additions and 34 deletions
Download patch file Download diff file Expand all files Collapse all files

9
libguile/vectors.h
View file

@ -52,7 +52,6 @@
#define SCM_VECTORP(x) (SCM_NIMP (x) && (SCM_TYP7S (x) == scm_tc7_vector))
#define SCM_NVECTORP(x) (!SCM_VECTORP (x))
#define SCM_VELTS(x) ((SCM *) SCM_CELL_WORD_1 (x))
#define SCM_VELTS_AS_STACKITEMS(x) ((SCM_STACKITEM *) SCM_CELL_WORD_1 (x))
#define SCM_SETVELTS(x,v) (SCM_SET_CELL_WORD_1 ((x), (v)))
@ -85,6 +84,14 @@ 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)
#define SCM_NVECTORP(x) (!SCM_VECTORP (x))
#endif /* SCM_DEBUG_DEPRECATED == 0 */
#endif /* VECTORSH */
/*