added missing build-aux/ltmain.sh

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