SefoList
symeCondition(Syme syme)
{
/* Ignore the conditions if needed for syme equality tests. */
if (symePopConds(syme)) return listNil(Sefo);
return (SefoList) symeGetField(syme, SYFI_Condition);
}
Lib
symeConstLib(Syme syme)
{
if (symeSameLibs(syme))
return symeLib(syme);
return (Lib) symeGetField(syme, SYFI_ConstLib);
}
StabLevel
symeDefLevel(Syme syme)
{
if (symeLibLevel(syme) && symeLib(syme))
return car(symeLib(syme)->stab);
return (StabLevel) symeGetField(syme, SYFI_DefLevel);
}
Syme
symeOriginal(Syme syme)
{
/* Use symeFull(syme) unless an explicit value is present. */
while (!symeHasLocal(syme, SYFI_Original)) {
if (!symeFull(syme)) return syme;
syme = symeFull(syme);
}
return (Syme) symeGetField(syme, SYFI_Original);
}
AInt
symeGetFieldX(Syme s, AInt f) { return symeGetField(s, f); }
Syme
symeExtensionFirst(Syme syme)
{
Syme ext = (Syme) symeGetField(syme, SYFI_Extension);
return ext;
}
TForm
symeExporter(Syme syme)
{
assert(symeIsImport(syme));
return (TForm) symeGetField(symeExportingSyme(syme), SYFI_Exporter);
}
