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

Diff of /mailutils/libmu_scm/mu_body.c

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

revision 1.4 by polak, Sun Dec 29 12:52:07 2002 UTC revision 1.5 by gray, Mon Feb 3 11:31:24 2003 UTC
# Line 79  mu_scm_body_print (SCM body_smob, SCM po Line 79  mu_scm_body_print (SCM body_smob, SCM po
79  int  int
80  mu_scm_is_body (SCM scm)  mu_scm_is_body (SCM scm)
81  {  {
82    return SCM_NIMP (scm) && SCM_CAR (scm) == body_tag;    return SCM_NIMP (scm) && (long) SCM_CAR (scm) == body_tag;
83  }  }
84    
85  SCM  SCM

Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5

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