diff --git a/C/atomic.c b/C/atomic.c
index 10e39e909..14744d434 100644
--- a/C/atomic.c
+++ b/C/atomic.c
@@ -704,13 +704,6 @@ restart_aux:
   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)