Hi Mark,

On Thu 10 Mar 2011 00:28, Mark H Weaver <[email protected]> writes:

> #define SCM_GNUMBERP(x) \
>   (SCM_STRUCTP (x) && (SCM_STRUCT_VTABLE_FLAGS (x) & SCM_CLASSF_NUMBER))
>
> scm_number_p is implemented as:
>
>   return scm_from_bool (SCM_NUMBERP (x) || SCM_GNUMBERP (x));

It's a late reply, but I just wanted to mention that I like this
approach.  Happy hacking!

Andy
-- 
http://wingolog.org/

Reply via email to