generate known atoms and functors automatically

C/userpreds.c

@@ -592,14 +592,11 @@ static int
 p_grab_tokens()
 {
   Term           *p = ASP - 20, *p0, t;
-  Atom            IdAtom, VarAtom;
   Functor         IdFunctor, VarFunctor;
   char            ch, IdChars[256], *chp;
 
-  IdAtom = Yap_LookupAtom("id");
-  IdFunctor = Yap_MkFunctor(IdAtom, 1);
-  VarAtom = Yap_LookupAtom("var");
-  VarFunctor = Yap_MkFunctor(VarAtom, 1);
+  IdFunctor = FunctorId;
+  VarFunctor = FunctorVar;
   p0 = p;
   ch = Yap_PlGetchar();
   while (1) {