Commit 2e0bdb89 authored by Hynek Baran's avatar Hynek Baran

`convert/diff/1` on sequential argument returns sequential

parent ee88e50e
......@@ -2318,7 +2318,7 @@ end:
if t=diff then `convert/diff/f`(f, es) else f fi
fi
elif type (f,{`+`,`*`,`^`}) then map2 (procname, t, f, es) # HB
elif type (f,{sequential,array}) then op(map2 (procname, t, convert(f, list), es)) # HB
elif type (f,{sequential,array}) then map2 (procname, t, convert(f, list), es) # HB
elif type (f,'function') then
if type (f,`j/var`) then eval(subs(es,f))
elif type (f, specfunc(anything,pd)) then f1 := op(1,f); qs := ars(f1);
......
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