seen and have fixes. par fix. not tested

This commit is contained in:
p.kosyh 2009-10-11 14:35:03 +00:00
parent e24ade4c3c
commit a84c9a838c

View file

@ -11,7 +11,7 @@ stead = {
function par(space,...) function par(space,...)
local i, res local i, res
for i = 1, stead.table.maxn(arg) do for i = 1, stead.table.maxn(arg) do
if type(arg[i]) == 'string' then if type(arg[i]) == 'string' and arg[i] ~= "" then
if res == nil then if res == nil then
res = "" res = ""
else else
@ -1769,7 +1769,7 @@ function seen(obj, wh)
else else
wh = ref(wh); wh = ref(wh);
end end
local o,w = wh.obj:srch(obj); local o,w = wh:srch(obj);
o = ref(o); o = ref(o);
if isObject(o) then if isObject(o) then
return o,w return o,w
@ -1780,7 +1780,7 @@ end
function have(obj) function have(obj)
local o = inv():srch(obj); local o = inv():srch(obj);
o = ref(o); o = ref(o);
if isObject(o) then if isObject(o) and not isDisabled(o) then
return o return o
end end
return nil return nil