Parent Directory | Revision Log | Patch
revision 1.20 by polak, Sun Dec 29 12:52:07 2002 UTC | revision 1.21 by gray, Mon Feb 3 11:31:51 2003 UTC | |
---|---|---|
# | Line 167 mu_scm_message_get (SCM MESG) | Line 167 mu_scm_message_get (SCM MESG) |
167 | int | int |
168 | mu_scm_is_message (SCM scm) | mu_scm_is_message (SCM scm) |
169 | { | { |
170 | return SCM_NIMP (scm) && SCM_CAR (scm) == message_tag; | return SCM_NIMP (scm) && (long) SCM_CAR (scm) == message_tag; |
171 | } | } |
172 | ||
173 | /* ************************************************************************* */ | /* ************************************************************************* */ |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |