port '$get_from_list' to '$get_from_attr_list' in Rust

This commit is contained in:
Mark Thom
2023-02-06 01:23:29 -07:00
parent 2fcec4fff9
commit 9454d670c7
4 changed files with 80 additions and 1 deletions

View File

@@ -34,8 +34,9 @@
'$get_attr'(V, Attr) :-
'$get_attr_list'(V, Ls),
nonvar(Ls),
'$get_from_list'(Ls, V, Attr).
'$get_from_attr_list'(Ls, Attr).
/*
'$get_from_list'([L|Ls], V, Attr) :-
nonvar(L),
( L \= Attr ->
@@ -43,6 +44,7 @@
'$get_from_list'(Ls, V, Attr)
; L = Attr
).
*/
'$put_attr'(V, Attr) :-
'$get_attr_list'(V, Ls),