mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-14 15:40:19 +02:00
Code Activity

* Introduce SCM_UNUSED and mark unused function parameters.

Browse source 
* Introduce SCM_DEBUG_PAIR_ACCESSES.
* Extend the possibilities of SCM_DEBUG_CELL_ACCESSES.
This commit is contained in:
Dirk Herrmann 2001-06-07 21:12:19 +00:00
parent 563058efbe
commit e81d98ec2d
39 changed files with 378 additions and 139 deletions
Download patch file Download diff file Expand all files Collapse all files

27
libguile/pairs.h
View file

@ -1,8 +1,8 @@
/* classes: h_files */
#ifndef PAIRSH
#define PAIRSH
/* Copyright (C) 1995,1996,2000 Free Software Foundation, Inc.
#ifndef SCM_PAIRS_H
#define SCM_PAIRS_H
/* Copyright (C) 1995,1996,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
@ -52,14 +52,22 @@
#if (SCM_DEBUG_PAIR_ACCESSES == 1)
# include "libguile/struct.h"
# define SCM_VALIDATE_PAIR(cell, expr) \
((!SCM_ECONSP (cell) ? scm_error_pair_access (cell), 0 : 0), (expr))
#else
# define SCM_VALIDATE_PAIR(cell, expr) (expr)
#endif
#define SCM_NULLP(x) (SCM_EQ_P ((x), SCM_EOL))
#define SCM_NNULLP(x) (!SCM_NULLP (x))
#define SCM_CAR(x) (SCM_CELL_OBJECT_0 (x))
#define SCM_CDR(x) (SCM_CELL_OBJECT_1 (x))
#define SCM_CAR(x) (SCM_VALIDATE_PAIR (x, SCM_CELL_OBJECT_0 (x)))
#define SCM_CDR(x) (SCM_VALIDATE_PAIR (x, SCM_CELL_OBJECT_1 (x)))
#define SCM_SETCAR(x, v) (SCM_SET_CELL_OBJECT_0 ((x), (v)))
#define SCM_SETCDR(x, v) (SCM_SET_CELL_OBJECT_1 ((x), (v)))
#define SCM_SETCAR(x, v) (SCM_VALIDATE_PAIR (x, SCM_SET_CELL_OBJECT_0 ((x), (v))))
#define SCM_SETCDR(x, v) (SCM_VALIDATE_PAIR (x, SCM_SET_CELL_OBJECT_1 ((x), (v))))
#define SCM_CAAR(OBJ) SCM_CAR (SCM_CAR (OBJ))
#define SCM_CDAR(OBJ) SCM_CDR (SCM_CAR (OBJ))
@ -94,6 +102,9 @@
#if (SCM_DEBUG_PAIR_ACCESSES == 1)
extern void scm_error_pair_access (SCM) SCM_NORETURN;
#endif
extern SCM scm_cons (SCM x, SCM y);
extern SCM scm_cons2 (SCM w, SCM x, SCM y);
extern SCM scm_pair_p (SCM x);
@ -101,7 +112,7 @@ extern SCM scm_set_car_x (SCM pair, SCM value);
extern SCM scm_set_cdr_x (SCM pair, SCM value);
extern void scm_init_pairs (void);
#endif /* PAIRSH */
#endif /* SCM_PAIRS_H */
/*
Local Variables: