Changeset 15425 for src/Pugs/Eval.hs

Show
Ignore:
Timestamp:
03/03/07 16:37:34 (21 months ago)
Author:
audreyt
Message:

* Massive Haddoc-compatibility fix to make all modules

haddockable.

Files:
1 modified

Legend:

Unmodified
Added
Removed

  • src/Pugs/Eval.hs

    r15421 r15425  
    289289                    else name 
    290290                | isGlobalVar var || pkg `notElem` [emptyPkg, callerPkg, outerPkg, contextPkg] -> do 
    291                     -- $Qualified::Var is not found.  Vivify at lvalue context. 
     291                    -- '$Qualified::Var' is not found.  Vivify at lvalue context. 
    292292                    lv <- asks envLValue 
    293293                    if lv then evalExp (Sym SGlobal var (Var var)) else retEmpty 
    294294                | otherwise -> do 
    295295                    s <- isStrict 
    296                     if s then retError "Undeclared variable" var 
     296                    if s then do retError "Undeclared variable" var 
    297297                         else do lv <- asks envLValue 
    298298                                 if lv then evalExp (Sym SGlobal var (Var var)) else retEmpty 
    … …  
    659659                Just tvar -> return (tvar, ref) 
    660660                _ | isGlobalVar var || v_package var `notElem` [emptyPkg, callerPkg, outerPkg, contextPkg] -> do 
    661                     -- $Qualified::Var is not found.  Vivify at lvalue context. 
     661                    -- '$Qualified::Var' is not found.  Vivify at lvalue context. 
    662662                    evalExp (Sym SGlobal var Noop) 
    663663                    rv' <- findVarRef var