/[mailutils]/mailutils/libmu_scm/mu_mailbox.c
ViewVC logotype

Diff of /mailutils/libmu_scm/mu_mailbox.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.7 by polak, Sun Dec 29 12:52:07 2002 UTC revision 1.8 by gray, Mon Feb 3 11:31:51 2003 UTC
# Line 98  mu_scm_mailbox_create (mailbox_t mbox) Line 98  mu_scm_mailbox_create (mailbox_t mbox)
98  int  int
99  mu_scm_is_mailbox (SCM scm)  mu_scm_is_mailbox (SCM scm)
100  {  {
101    return SCM_NIMP (scm) && SCM_CAR (scm) == mailbox_tag;    return SCM_NIMP (scm) && (long) SCM_CAR (scm) == mailbox_tag;
102  }  }
103    
104  /* ************************************************************************* */  /* ************************************************************************* */

Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26