diogo/yap-6.3
Archived
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

fix @ option in format/2

Browse Source
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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
C/iopreds.c
View File

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

2
H/iatoms.h
View File

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

2
misc/ATOMS
View File

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