{
SCM (*mark) SCM_P ((SCM));
scm_sizet (*free) SCM_P ((SCM));
- int (*print) SCM_P ((SCM exp, SCM port, int writing));
+ int (*print) SCM_P ((SCM exp, SCM port, scm_print_state *pstate));
SCM (*equalp) SCM_P ((SCM, SCM));
} scm_smobfuns;
\f
-#define SCM_SMOBNUM(x) (0x0ff & (SCM_CAR(x)>>8));
-#define SCM_PTOBNUM(x) (0x0ff & (SCM_CAR(x)>>8));
+#define SCM_SMOBNUM(x) (0x0ff & (SCM_CAR(x)>>8))
extern scm_sizet scm_numsmob;
extern scm_smobfuns *scm_smobs;
/* Everyone who uses smobs needs to print. */
#include "libguile/ports.h"
#include "libguile/genio.h"
-#include "libguile/print.h"
/* ... and they all need to GC. */
#include "libguile/markers.h"