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:
vsc 2002-11-20 20:02:11 +00:00
parent 0018af2b05
commit 3e0216413a

View File

@ -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).