eliminate extraneous choice point in $get_attr

2019-10-01 22:36:46 -06:00
parent abc7498a42
commit c0ad3231f5
2 changed files with 2 additions and 2 deletions
--- a/src/prolog/lib/atts.pl
+++ b/src/prolog/lib/atts.pl
@@ -24,7 +24,7 @@
 '$get_from_list'([L|Ls], V, Attr) :-
    nonvar(L),
    ( L \= Attr -> nonvar(Ls), '$get_from_list'(Ls, V, Attr)
-    ; L = Attr, '$enqueue_attr_var'(V)
+    ; L = Attr -> '$enqueue_attr_var'(V)
    ; '$get_from_list'(Ls, V, Attr)
    ).