rishi/scryer-prolog
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

add expand_term/2

Browse Source
This commit is contained in:
Mark Thom
2018-10-15 20:07:48 -06:00
parent eabb851d8c
commit a3dc6d2bef
1 changed files with 6 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
src/prolog/lib/builtins.pl
View File

@@ -6,7 +6,8 @@
(=:=)/2, (-)/1, (>=)/2, (=<)/2, (,)/2, (->)/2, (;)/2, (=..)/2, (=:=)/2, (-)/1, (>=)/2, (=<)/2, (,)/2, (->)/2, (;)/2, (=..)/2,
(==)/2, (\==)/2, (@=<)/2, (@>=)/2, (@<)/2, (@>)/2, (=@=)/2, (==)/2, (\==)/2, (@=<)/2, (@>=)/2, (@<)/2, (@>)/2, (=@=)/2,
(\=@=)/2, (:)/2, call_with_inference_limit/3, catch/3, (\=@=)/2, (:)/2, call_with_inference_limit/3, catch/3,
current_prolog_flag/2, set_prolog_flag/2, term_variables/2, current_prolog_flag/2, expand_term/2, set_prolog_flag/2,
term_variables/2,
setup_call_cleanup/3, throw/1, true/0, false/0]). setup_call_cleanup/3, throw/1, true/0, false/0]).
/* this is an implementation specific declarative operator used to implement call_with_inference_limit/3 /* this is an implementation specific declarative operator used to implement call_with_inference_limit/3
@@ -205,6 +206,10 @@ get_args([Arg|Args], Func, I0, N) :-
'$call_with_default_policy'(I1 is I0 + 1), '$call_with_default_policy'(I1 is I0 + 1),
'$call_with_default_policy'(get_args(Args, Func, I1, N)). '$call_with_default_policy'(get_args(Args, Func, I1, N)).
% expand_term.
expand_term(Term0, Term) :- '$expand_term'(Term0, Term).
% term_variables. % term_variables.
can_be(Type, Term) :- error:can_be(Type, Term). can_be(Type, Term) :- error:can_be(Type, Term).