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

add '$unattributed_var' builtin (#1758)

Browse Source
This commit is contained in:
Mark Thom
2023-03-18 23:08:09 -06:00
parent 6e53d08d40
commit 4ee6a7bfb8
4 changed files with 34 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
src/lib/lists.pl
View File

@@ -92,7 +92,7 @@ length(_, N) :-
length_rundown(Xs, 0) :- !, Xs = [].
length_rundown(Vs, N) :-
\+ \+ '$project_atts':copy_term(Vs,Vs,[]), % unconstrained
'$unattributed_var'(Vs), % unconstrained
!,
'$det_length_rundown'(Vs, N).
length_rundown([_|Xs], N) :- % force unification
@@ -100,7 +100,7 @@ length_rundown([_|Xs], N) :- % force unification
length(Xs, N1). % maybe some new info on Xs
failingvarskip(Xs) :-
\+ \+ '$project_atts':copy_term(Xs,Xs,[]), % unconstrained
'$unattributed_var'(Xs), % unconstrained
!.
failingvarskip([_|Xs0]) :- % force unification
'$skip_max_list'(_, _, Xs0,Xs),