summaryrefslogtreecommitdiff
path: root/libguile/struct.h
diff options
context:
space:
mode:
authorDirk Herrmann <dirk@dirk-herrmanns-seiten.de>2001-08-31 11:17:06 +0000
committerDirk Herrmann <dirk@dirk-herrmanns-seiten.de>2001-08-31 11:17:06 +0000
commitb29058ffee392969b448f8157afaf370c17a736c (patch)
tree2b29b8ece42c1be983ed8842931e36bd4415434c /libguile/struct.h
parent0527e6876338ba394366273351105d6622368da2 (diff)
downloadguile-b29058ffee392969b448f8157afaf370c17a736c.tar.gz
* Remove deprecated macros and typenames.
* Rename header macros to SCM_<filename>_H. * Prefer !SCM_<foo> over SCM_N<foo>.
Diffstat (limited to 'libguile/struct.h')
-rw-r--r--libguile/struct.h9
1 files changed, 5 insertions, 4 deletions
diff --git a/libguile/struct.h b/libguile/struct.h
index ec5ae8cff..a36adf0a4 100644
--- a/libguile/struct.h
+++ b/libguile/struct.h
@@ -2,18 +2,19 @@
#ifndef SCM_STRUCT_H
#define SCM_STRUCT_H
+
/* Copyright (C) 1995,1997,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
* 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,
@@ -77,7 +78,7 @@ typedef size_t (*scm_t_struct_free) (scm_t_bits * vtable, scm_t_bits * data);
#define SCM_STRUCTF_LIGHT (1L << 31) /* Light representation
(no hidden words) */
-#define SCM_STRUCTP(X) (SCM_NIMP(X) && (SCM_TYP3(X) == scm_tc3_struct))
+#define SCM_STRUCTP(X) (!SCM_IMP(X) && (SCM_TYP3(X) == scm_tc3_struct))
#define SCM_STRUCT_DATA(X) ((scm_t_bits *) SCM_CELL_WORD_1 (X))
#define SCM_STRUCT_VTABLE_DATA(X) ((scm_t_bits *) (SCM_CELL_WORD_0 (X) - scm_tc3_struct))