- if(i->get_type()==STRING)
- IO::print(out, "\"%s\"", c_escape(i->get_raw(), false));
- else if(i->get_type()==BOOLEAN)
- out.write(i->get<bool>() ? "true" : "false");
- else
- out.write(i->get_raw());
+ if(i->get_signature()==StringType::signature)
+ IO::print(out, "\"%s\"", c_escape(i->get<StringType::Store>(), false));
+ else if(i->get_signature()==BoolType::signature)
+ out.write(i->get<BoolType::Store>() ? "true" : "false");
+ else if(i->get_signature()==IntType::signature)
+ out.write(lexical_cast(i->get<IntType::Store>()));
+ else if(i->get_signature()==FloatType::signature)
+ out.write(format("%15g", (i->get<FloatType::Store>())));
+ else if(i->get_signature()==SymbolType::signature)
+ {
+ string name = i->get<SymbolType::Store>().name;
+ if(isdigit(name[0]))
+ out.write("\\"+name);
+ else
+ out.write(name);
+ }