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

Correction of mistake (should have committed onto a branch...)

Browse source
This commit is contained in:
Mikael Djurfeldt 1999-01-05 09:40:49 +00:00
parent 98fae09612
commit 7688430d05
6 changed files with 3 additions and 207 deletions
Download patch file Download diff file Expand all files Collapse all files

2
libguile/struct.h
View file

@ -65,8 +65,6 @@
#define scm_vtable_offset_user 4 /* Where do user fields start? */
#define SCM_STRUCTF_ENTITY (1L << 30) /* Indicates presence of proc slots */
#define SCM_STRUCTF_LIGHT (1L << 31) /* Light representation
(no hidden words) */
#define SCM_STRUCTP(X) (SCM_TYP3(X) == scm_tc3_cons_gloc)
#define SCM_STRUCT_DATA(X) ((SCM*)(SCM_CDR(X)))