Cyclone Scheme  0.9
#define complex_num_value (   x)    (((complex_num_type *) x)->value)

Access the complex number directly