public static Obj CreateTaggedObj(ushort tag, Obj obj) { if (obj.IsInt()) { return(CreateTaggedIntObj(tag, obj.GetLong())); } if (tag == SymbObj.StringSymbId) { obj = obj.PackForString(); } return(new TaggedObj(tag, obj)); }
public void TaggedObj(TaggedObj tagObj) { ushort tag = tagObj.GetTagId(); Obj obj = tagObj.GetInnerObj(); if (IsSyntacticSugaredString(tagObj)) { SyntacticSugaredString(obj); } else if (obj.IsInt()) { TaggedIntObj(tag, obj.GetLong()); } else { StandardTaggedObj(tag, obj); } }
public static void Exit_P(Obj code, object env) { IO.Exit((int)code.GetLong()); }