private Atom TokenToSimpleAtom(Token token)
{
Atom atom;
if (token is SymbolToken)
{
atom = new Symbol(((SymbolToken)token).Name);
}
else if (token is NumberToken)
{
atom = new Number(((NumberToken)token).Value);
}
else
{
throw new NotImplementedException();
}
return atom;
}
public static LispObject TokenToAtom(Token tok)
{
// todo1[ak] check args
LispObject el;
if (tok is SymbolToken)
{
el = new Symbol(((SymbolToken)tok).Name);
}
else if (tok is NumberToken)
{
el = new Number(((NumberToken)tok).Value);
}
else
{
throw new NotImplementedException();
}
return el;
}
