Parent Directory | Revision Log | 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 | /* ************************************************************************* */ | /* ************************************************************************* */ |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |