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