correct bugs in verify_attributes handling

2019-02-09 00:16:57 -07:00
parent 661f9b7414
commit 33dbe3bb45
6 changed files with 70 additions and 31 deletions
--- a/src/prolog/lib/atts.pl
+++ b/src/prolog/lib/atts.pl
@@ -24,7 +24,7 @@
 '$get_from_list'([L|Ls], Attr) :-
    nonvar(L),
    ( L \= Attr -> nonvar(Ls), '$get_from_list'(Ls, Attr)
-    ; copy_term(L, L0), L0 = Attr
+    ; L = Attr
    ; '$get_from_list'(Ls, Attr)
    ).