Changeset 15449 for src/Pugs/Prim.hs

Show
Ignore:
Timestamp:
03/05/07 08:45:57 (21 months ago)
Author:
audreyt
Message:

* Pugs.Prim: The outermost context is Item, not Void.

Files:
1 modified

Legend:

Unmodified
Added
Removed

  • src/Pugs/Prim.hs

    r15434 r15449  
    6666op0 "^"  = fmap opJuncOne . mapM fromVal 
    6767op0 "|"  = fmap opJuncAny . mapM fromVal 
    68 op0 "want"  = const $ fmap VStr (asks (maybe "Void" envWant . envCaller)) 
     68op0 "want"  = const $ fmap VStr (asks (maybe "Item" envWant . envCaller)) 
    6969op0 "Bool::True"  = const . return $ VBool True 
    7070op0 "Bool::False" = const . return $ VBool False