loops
This commit is contained in:
parent
3fdc260ee6
commit
ac60bee30d
@ -1105,7 +1105,7 @@ void Yap_plwrite(Term t, StreamDesc *mywrite, int max_depth, int flags,
|
||||
wglb.lw = separator;
|
||||
|
||||
if ((flags & Handle_cyclics_f) ){
|
||||
Yap_CyclesInTerm(t, 3, NULL PASS_REGS);
|
||||
t = Yap_CyclesInTerm(t PASS_REGS);
|
||||
}
|
||||
|
||||
/* protect slots for portray */
|
||||
|
@ -445,6 +445,7 @@ bool Yap_isDirectory(const char *FileName);
|
||||
extern bool Yap_Exists(const char *f);
|
||||
|
||||
/* terms.c */
|
||||
extern Term Yap_CyclesInTerm(Term t USES_REGS);
|
||||
extern bool Yap_IsCyclicTerm(Term inp USES_REGS);
|
||||
extern Term Yap_BreakCycles(Term inp, UInt arity, Term *listp USES_REGS);
|
||||
extern void Yap_InitTermCPreds(void);
|
||||
|
Reference in New Issue
Block a user