Cyclone Scheme  0.4

◆ prim

#define prim (   x)    (x && ((primitive)x)->tag == primitive_tag)