[NTG-context] error messages for callback.register

[Peter Münster]

Hello,

Here a patch for luat-cbk.lua:

function callbacks.register(name,func,freeze)
    if frozen[name] then
        if trace_callbacks then
            frozenmessage("registering",name)
        end
        return nil, name .. " is frozen"
    elseif freeze then
        frozen[name] = (type(freeze) == "string" and freeze) or "registered"
        return register_callback(name,func)
    else
        return register_callback(name,func)
    end
end

function callback.register(name,func) -- original
    if frozen[name] then
        if trace_callbacks then
            frozenmessage("registering",name)
        end
        return nil, name .. " is frozen"
    else
        return register_callback(name,func)
    end
end

(Untested...)

Cheers, Peter

-- 
Contact information: http://pmrb.free.fr/contact/


___________________________________________________________________________________
If your question is of interest to others as well, please add an entry to the 
Wiki!

maillist : ntg-context@ntg.nl / http://www.ntg.nl/mailman/listinfo/ntg-context
webpage  : http://www.pragma-ade.nl / http://tex.aanhet.net
archive  : http://foundry.supelec.fr/projects/contextrev/
wiki     : http://contextgarden.net
___________________________________________________________________________________