Changeset 12382 for src/Pugs/Eval

Show
Ignore:
Timestamp:
08/17/06 18:30:46 (2 years ago)
Author:
audreyt
Message:

* Pugs.Eval.Var: $?OS and $?MODULE no longer triggers

"sigilless var" errors again.

Files:
1 modified

Legend:

Unmodified
Added
Removed

  • src/Pugs/Eval/Var.hs

    r12375 r12382  
    570570    , (cast "$?COLUMN"   , posSym posBeginColumn) 
    571571    , (cast "$?POSITION" , posSym pretty) 
    572     , (cast "$?MODULE"   , constSym $ cast "main") 
    573     , (cast "$?OS"       , constSym $ cast (getConfig "osname")) 
     572    , (cast "$?MODULE"   , constSym "main") 
     573    , (cast "$?OS"       , constSym (getConfig "osname")) 
    574574    , (cast "$?CLASS"    , fmap (Just . VType . cast) (asks envPackage)) 
    575575    , (cast ":?CLASS"    , fmap (Just . VType . cast) (asks envPackage)) 
    … …  
    582582posSym :: Value a => (Pos -> a) -> Eval (Maybe Val) 
    583583posSym f = fmap (Just . castV . f) $ asks envPos 
    584 constSym :: Var -> Eval (Maybe Val) 
    585 constSym = return . Just . VStr . cast 
     584 
     585constSym :: String -> Eval (Maybe Val) 
     586constSym = return . Just . VStr 
    586587 
    587588findSyms :: Var -> Eval [(Var, Val)]