Added cons.
[mozart2.git] / integer.cc
blob9dc0fe3f4ad4f5e48244bdb2f72b63ca172baa8a
1 void gcIntoSmallInt(Node& it, GC& gc, Node& dest){
2 mkSmallint(gc.vm, dest, it.c.si);
4 const VTable smallintVT={
5 //PP_VTABLE_DEF(«vtUnimplemented»)
6 //PP_VTABLE_SET(«copyable»,«1»)
7 //PP_VTABLE_SET(«gcInto»,«&gcIntoSmallInt»)
8 //PP_VTABLE_SET(«gc»,«&gcDef<&gcIntoSmallInt>»)
9 //PP_VTABLE_PRODUCE