unused
This commit is contained in:
parent
1ead544a50
commit
269e7b8806
@ -704,13 +704,6 @@ restart_aux:
|
|||||||
cut_fail();
|
cut_fail();
|
||||||
}
|
}
|
||||||
|
|
||||||
#define CastToAtom(x) CastToAtom__(x PASS_REGS)
|
|
||||||
|
|
||||||
static Term CastToAtom__(Term t USES_REGS) {
|
|
||||||
if (IsAtomTerm(t))
|
|
||||||
return t;
|
|
||||||
return MkAtomTerm(Yap_AtomicToAtom(t PASS_REGS));
|
|
||||||
}
|
|
||||||
|
|
||||||
#define CastToNumeric(x) CastToNumeric__(x PASS_REGS)
|
#define CastToNumeric(x) CastToNumeric__(x PASS_REGS)
|
||||||
|
|
||||||
|
Reference in New Issue
Block a user