added missing build-aux/ltmain.sh

parent 35abf285
This diff is collapsed.
......@@ -52,20 +52,25 @@ do_all_atts_when(Val, []).
whenId(Val,Var,#t) :-
(
var(Val);attvar(Val);
(var(scm[doWhen]) ->
(
get_attr(Var,whenId,Atts),!,
del_attr(Var, whenId),
Var = Val,!,
do_all_atts_when(Atts)
);
(
get_attr(Var,whenId,[VV|_]), VV=Val
)
)
).
var(Val) -> (Val = Var) ;
(
attvar(Val) ->
(
write('does not support att = att atm'),nl
) ;
(
(raw_attvar(Var, Raw), var(Raw)) ->
( var(scm[doWhen]) ->
(
get_attr(Var,whenId,Atts),!,
Raw = Val,
do_all_atts_when(Atts)
);
Raw=Val
) ;
Raw=Val
)
).
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