write_depth(0) is an acceptable option for write_term.
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@702 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
parent
0018af2b05
commit
3e0216413a
@ -259,7 +259,7 @@ open(F,T,S,Opts) :-
|
||||
|
||||
'$check_write_max_depth'(X, G) :- var(X), !,
|
||||
'$do_error'(instantiation_error,G).
|
||||
'$check_write_max_depth'(I,_) :- integer(I), I > 0, !.
|
||||
'$check_write_max_depth'(I,_) :- integer(I), I >= 0, !.
|
||||
'$check_write_max_depth'(X,G) :-
|
||||
'$do_error'(domain_error(write_option,max_depth(X)),G).
|
||||
|
||||
|
Reference in New Issue
Block a user