fix @ option in format/2

This commit is contained in:
Vitor Santos Costa 2009-10-21 00:07:31 +01:00
parent b2eb437625
commit c6e16a608a
3 changed files with 3 additions and 3 deletions

View File

@ -5273,7 +5273,7 @@ format(volatile Term otail, volatile Term oargs, int sno)
ta[1] = MkVarTerm();
sl2 = Yap_InitSlot(ta[1]);
ts = Yap_MkApplTerm(FunctorGFormatAt, 2, ta);
res = Yap_execute_goal(ts, 0, 1);
res = Yap_execute_goal(ts, 0, CurrentModule);
FormatInfo = &finfo;
args = Yap_GetFromSlot(sl);
if (EX) goto ex_handler;

View File

@ -351,7 +351,7 @@
FunctorGAtomic = Yap_MkFunctor(AtomAtomic,1);
FunctorGCompound = Yap_MkFunctor(AtomCompound,1);
FunctorGFloat = Yap_MkFunctor(AtomFloat,1);
FunctorGFormatAt = Yap_MkFunctor(AtomFormatAt,1);
FunctorGFormatAt = Yap_MkFunctor(AtomFormatAt,2);
FunctorGInteger = Yap_MkFunctor(AtomInteger,1);
FunctorGNumber = Yap_MkFunctor(AtomNumber,1);
FunctorGPrimitive = Yap_MkFunctor(AtomPrimitive,1);

View File

@ -362,7 +362,7 @@ F GAtom Atom 1
F GAtomic Atomic 1
F GCompound Compound 1
F GFloat Float 1
F GFormatAt FormatAt 1
F GFormatAt FormatAt 2
F GInteger Integer 1
F GNumber Number 1
F GPrimitive Primitive 1