2001-04-08
2001-04-08 23:10:24 by Per Hedbor <ph@opera.com>
-
055e93aa700ad4d47278be782b152ae82ef6f60b
(7 lines)
(+4/-3)
[
Show
| Annotate
]
Branch: 5.2
Use callablep
Rev: server/etc/modules/RXML.pmod/module.pmod:1.147
2:
//!
//! Created 1999-07-30 by Martin Stjernholm.
//!
- //! $Id: module.pmod,v 1.146 2001/03/26 23:59:36 mast Exp $
+ //! $Id: module.pmod,v 1.147 2001/04/08 23:10:24 per Exp $
//! Kludge: Must use "RXML.refs" somewhere for the whole module to be
//! loaded correctly.
414: Inside #if defined(MODULE_DEBUG)
#ifdef MODULE_DEBUG
if (!stringp (tag->name))
error ("Trying to register a tag %O without a name.\n", tag);
- if (!functionp (tag->Frame) && !tag->plugin_name)
+ if (!callablep (tag->Frame) && !tag->plugin_name)
error ("Trying to register a tag %O without a Frame class or function.\n", tag);
if (tag->name[..3] != "!--#" && // Ugly special case for SSI tags.
replace (tag->name, "#<>& \t\n\r" / "", ({""}) * 8) != tag->name)
438: Inside #if defined(MODULE_DEBUG)
#ifdef MODULE_DEBUG
if (!stringp (tag->name))
error ("Trying to register a tag %O without a name.\n", tag);
- if (!functionp (tag->Frame) && !tag->plugin_name)
+ if (!callablep (tag->Frame)&& !tag->plugin_name)
error ("Trying to register a tag %O without a Frame class or function.\n", tag);
if (tag->name[..3] != "!--#" && // Ugly special case for SSI tags.
replace (tag->name, "#<>& \t\n\r" / "", ({""}) * 8) != tag->name)