Changeset 12347 for src/Pugs/Eval

Show
Ignore:
Timestamp:
08/17/06 04:27:38 (2 years ago)
Author:
audreyt
Message:

* restore metaobjects for Multi::Part::Class's metaobject

Files:
1 modified

Legend:

Unmodified
Added
Removed

  • src/Pugs/Eval/Var.hs

    r12324 r12347  
    262262        -- get superclasses 
    263263        attrs <- fmap (fmap (filter (/= pkg) . nub)) $ findAttrs pkg 
     264        warn "ATTRS" attrs 
    264265        if isNothing attrs || null (fromJust attrs) then fmap (err NoMatchingMulti) (findSub' var) else do 
    265266        (`fix` (fromJust attrs)) $ \run pkgs -> do 
    … …  
    393394metaVar :: Pkg -> Var 
    394395-- metaVar = MkVar SType TNone globalPkg CNone . cast 
    395 metaVar pkg = MkVar 
     396metaVar pkg = cast (':':'*':cast pkg) 
     397    {- 
     398MkVar 
    396399    { v_sigil   = SType 
    397400    , v_twigil  = TGlobal 
    … …  
    400403    , v_name    = cast pkg 
    401404    } 
     405    -} 
    402406 
    403407err :: b -> Maybe a -> Either b a