OpenEuphoria

-- bug.ex 
include bug.e 
 
-- bug.e 
 
include std/dll.e 
 
function callback(sequence name, integer rid = routine_id(name)) 
    if rid = -1 then 
        puts(2, "routine '"&name&"' is not visible\n") 
    end if 
    return call_back(rid) 
end function 
 
? callback("foo") 
 
function foo() 
    return 0 
end function 

When translated and run, the output "routine 'foo' is not visible" is printed. With "euc -keep", the init-.c file doesn't have "foo" in the routine id array.