Index: goops-snarf.h
===================================================================
RCS file: /cvs/guile/guile/guile-oops/goops-snarf.h,v
retrieving revision 1.2
diff -u -r1.2 goops-snarf.h
--- goops-snarf.h 1999/06/24 03:03:03 1.2
+++ goops-snarf.h 2000/05/04 23:02:02
@@ -161,7 +161,7 @@
A)
#define SCM_SLOT_SCM(C_CLASS, C_TYPE, C_SLOT, SCM_SLOT, A) \
-SCM_I_SLOT (C_CLASS, C_TYPE, C_SLOT, SCM_SLOT, scm_class_SCM, \
+SCM_I_SLOT (C_CLASS, C_TYPE, C_SLOT, SCM_SLOT, scm_class_scm, \
1, \
o->C_SLOT, \
o->C_SLOT = x, \
