newtRef NsSymbolCompareLex(newtRefArg rcvr, newtRefArg r1, newtRefArg r2)
{
if (! NewtRefIsSymbol(r1))
return NewtThrow(kNErrNotASymbol, r1);
if (! NewtRefIsSymbol(r2))
return NewtThrow(kNErrNotASymbol, r2);
return NewtMakeInteger(NewtSymbolCompareLex(r1, r2));
}
newtRef NsDefNamedMP(newtRefArg rcvr, newtRefArg r, newtRefArg v)
{
newtRefVar sym;
if (NewtRefIsNamedMP(r))
{
sym = NewtMPToSymbol(r);
}
else if (NewtRefIsSymbol(r))
{
sym = r;
}
else
{
return r;
}
return NcSetSlot(NAMED_MPS, sym, v);
}
newtRef NsIsSymbol(newtRefArg rcvr, newtRefArg r)
{
return NewtMakeBoolean(NewtRefIsSymbol(r));
}
