Changeset 3464 for src/Pugs/Monads.hs

Show
Ignore:
Timestamp:
05/19/05 22:20:29 (4 years ago)
Author:
autrijus
svk:copy_cache_prev:
5016
Message:

* make envPackage actually update when entering a closure

defined in another package.

Files:
1 modified

Legend:

Unmodified
Added
Removed

  • src/Pugs/Monads.hs

    r3443 r3464  
    177177            return $ \e -> e 
    178178                { envOuter = Just env 
     179                , envPackage = maybe (envPackage e) envPackage (subEnv sub) 
    179180                , envLexical = combine [blockRec] 
    180181                    (subPad sub `unionPads` envLexical env) } 
    … …  
    187188            return $ \e -> e 
    188189                { envLexical = combine (concat [subRec, callerRec]) (subPad sub) 
     190                , envPackage = maybe (envPackage e) envPackage (subEnv sub) 
    189191                , envOuter   = maybe Nothing envOuter (subEnv sub) 
    190192                }