* ports.c (scm_char_ready_p): bug fix: in SCM_PROC char-ready's

[bpt/guile.git] / libguile / smob.h

diff --git a/libguile/smob.h b/libguile/smob.h
index efba996..b009920 100644 (file)
--- a/libguile/smob.h
+++ b/libguile/smob.h
@@ -57,7 +57,6 @@ typedef struct scm_smobfuns
 \f
 
 #define SCM_SMOBNUM(x) (0x0ff & (SCM_CAR(x)>>8))
-#define SCM_PTOBNUM(x) (0x0ff & (SCM_CAR(x)>>8))
 
 extern scm_sizet scm_numsmob;
 extern scm_smobfuns *scm_smobs;