buglet in fix() [was "function via source or fix"] (PR#602)

"Erin" == Erin Hodgess <hodgess@uhddx01.dt.uh.edu> writes:

    Erin> Suppose I create a function, x.e, via the fix command:

(ESS users ESS don't ever do this, but still ...)

    >> x.e <- fix(x.e)

    Erin> When I type in x.e, the function code appears, along
    Erin> with the name/number of the environment.

Ok, in the above it was important that there's no *existing* object x.e 
beforehand.

Note that the idea about  fix() is that you only have to write

     fix(x.e)

But your problem remains :

    > fix(newerf)

    Waiting for Emacs...Done	--- I have  options(editor = "emacsclient")

    > newerf

    function ()
    {
    ## newer
    }
    <environment: 0x40862004>

    > environment(newerf)

    <environment: 0x40862004>

    > ls(env=environment(newerf))

    [1] "subx" "x"   

    >

I.e. it got the environment of the function fix -- I think this is clearly
a bug  CC'ed to  R-bugs