Changeset 14492 for src/Pugs/Prim.hs

Show
Ignore:
Timestamp:
10/24/06 17:19:38 (2 years ago)
Author:
audreyt
Message:

* Pugs.Prim: Remove retry_with.

Files:
1 modified

Legend:

Unmodified
Added
Removed

  • src/Pugs/Prim.hs

    r14486 r14492  
    619619op1 "Code::pos"   = op1CodePos 
    620620op1 "Code::signature" = op1CodeSignature 
    621 op1 "Code::retry_with" = \vs -> do 
    622     cs  <- fromVals vs 
    623     env <- ask 
    624     let runInSTM v = runEvalSTM env . evalExp $ App (Val v) Nothing [] 
    625     guardSTM $ foldl1 orElse (map runInSTM cs) 
    626621op1 "IO::tell"    = \v -> do 
    627622    h <- fromVal v 
    … …  
    21382133\\n   Str       pre     Code::pos     safe   (Code:)\ 
    21392134\\n   Any       pre     Code::signature     safe   (Code:)\ 
    2140 \\n   Any       pre     Code::retry_with    safe   (List)\ 
    21412135\\n   IO::Dir   pre     opendir    unsafe (Str)\ 
    21422136\\n   Str       pre     IO::Dir::read       unsafe,export (IO::Dir:)\