added missing build-aux/ltmain.sh

parent 35abf285
This diff is collapsed.
...@@ -52,20 +52,25 @@ do_all_atts_when(Val, []). ...@@ -52,20 +52,25 @@ do_all_atts_when(Val, []).
whenId(Val,Var,#t) :- whenId(Val,Var,#t) :-
( var(Val) -> (Val = Var) ;
var(Val);attvar(Val); (
(var(scm[doWhen]) -> attvar(Val) ->
( (
get_attr(Var,whenId,Atts),!, write('does not support att = att atm'),nl
del_attr(Var, whenId), ) ;
Var = Val,!, (
do_all_atts_when(Atts) (raw_attvar(Var, Raw), var(Raw)) ->
); ( var(scm[doWhen]) ->
( (
get_attr(Var,whenId,[VV|_]), VV=Val get_attr(Var,whenId,Atts),!,
) Raw = Val,
) do_all_atts_when(Atts)
). );
Raw=Val
) ;
Raw=Val
)
).
difId(Val, Var, #t) :- difId(Val, Var, #t) :-
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment