From d554871ffbe23a3fd0a379748f3cebc0bd5f6703 Mon Sep 17 00:00:00 2001 From: Vitor Santos Costa Date: Fri, 4 Dec 2009 09:17:27 +0000 Subject: [PATCH] get rid of create_prolog_flag/2. --- docs/yap.tex | 7 ------- pl/directives.yap | 3 --- 2 files changed, 10 deletions(-) diff --git a/docs/yap.tex b/docs/yap.tex index e4b71643d..b92d7d3a8 100644 --- a/docs/yap.tex +++ b/docs/yap.tex @@ -8018,13 +8018,6 @@ Create a new YAP Prolog flag. @var{Options} include @code{type(+Type)} and @code one of @code{read_only} or @code{read_write} and @var{Type} one of @code{boolean}, @code{integer}, @code{float}, @code{atom} and @code{term} (that is, no type). -@item create_prolog_flag(+@var{Flag},+@var{Value}) -@findex create_prolog_flag/2 -@snindex create_prolog_flag/2 -@cnindex create_prolog_flag/2 - -Create a new YAP Prolog flag @var{Flag}. The flag is @code{read_write} and of type @code{term} (that is, no type). - @item op(+@var{P},+@var{T},+@var{A}) [ISO] @findex op/3 @syindex op/3 diff --git a/pl/directives.yap b/pl/directives.yap index efa0a2e9b..6450123ab 100644 --- a/pl/directives.yap +++ b/pl/directives.yap @@ -1074,9 +1074,6 @@ source_mode(Old,New) :- source :- '$set_yap_flags'(11,1). no_source :- '$set_yap_flags'(11,0). -create_prolog_flag(Name, Value) :- - create_prolog_flag(Name, Value, []). - create_prolog_flag(Name, Value, Options) :- '$check_flag_name'(Name, create_prolog_flag(Name, Value, Options)), '$check_flag_options'(Options, Domain, RW, create_prolog_flag(Name, Value, Options)),