fix @ option in format/2
This commit is contained in:
parent
b2eb437625
commit
c6e16a608a
@ -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;
|
||||
|
@ -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);
|
||||
|
@ -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
|
||||
|
Reference in New Issue
Block a user