Oblivous caching: DynamicVariable >> #default

Hi, there!

After calling #value:during: for a dynamic variable, the #default result is cached in the env variable of the process. Changing the result of #default will have no effect on #value until the process is killed...

I think, this is wrong... :-/

Best,
Marcel

This would work:

value: anObject during: aBlock

        | p oldValue defaultUsed |
        p := Processor activeProcess.
        defaultUsed := false.
        oldValue := p environmentAt: self ifAbsent: [defaultUsed := true. nil].
        ^[
                p environmentAt: self put: anObject.
                aBlock value ]
                        ensure: [ defaultUsed ifFalse: [p environmentAt: self put: oldValue] ].

Actually, *this* seems to work now:

value: anObject during: aBlock

        | p oldValue defaultUsed |
        p := Processor activeProcess.
        defaultUsed := false.
        oldValue := p environmentAt: self ifAbsent: [defaultUsed := true. nil].
        ^[
                p environmentAt: self put: anObject.
                aBlock value ]
                        ensure: [ defaultUsed
                                        ifTrue: [p environmentRemoveKey: self]
                                        ifFalse: [p environmentAt: self put: oldValue] ].

This change looks right to me.

Levente

On Sat, 31 Jan 2015, Marcel Taeumel wrote: