Changeset 3906 for src/Pugs/Prim/List.hs

Show
Ignore:
Timestamp:
05/26/05 12:37:22 (3 years ago)
Author:
autrijus
svk:copy_cache_prev:
5482
Message:

* starting single-invocant feature branch.

(maybe laso do multi-level MMD param here?)

Files:
1 modified

Legend:

Unmodified
Added
Removed

  • src/Pugs/Prim/List.hs

    r3877 r3906  
    8686          foldM (\a b -> do 
    8787              rv  <- local (\e -> e{ envContext = cxtItem "Int" }) $ do 
    88                   evl (App (Val sub) [Val a, Val b] []) 
     88                  evl (App (Val sub) Nothing [Val a, Val b]) 
    8989              int <- fromVal rv 
    9090              -- If the return value from the sub was 
    … …  
    129129        result <- nubByM (\a b -> do 
    130130            rv  <- local (\e -> e{ envContext = cxtItem "Bool" }) $ do 
    131                 evl (App (Val sub) [Val a, Val b] []) 
     131                evl (App (Val sub) Nothing [Val a, Val b]) 
    132132            -- The sub returns either true or false. 
    133133            bool <- fromVal rv 
    … …  
    174174        evl <- asks envEval 
    175175        local (\e -> e{ envContext = cxtItemAny }) $ do 
    176             evl (App (Val sub) (map Val xs) []) 
     176            evl (App (Val sub) Nothing (map Val xs)) 
    177177    case subAssoc code of 
    178178        "right" -> do 
    … …  
    207207        evl <- asks envEval 
    208208        rv  <- local (\e -> e{ envContext = cxtItem "Bool" }) $ do 
    209             evl (App (Val sub) [Val x] []) 
     209            evl (App (Val sub) Nothing [Val x]) 
    210210        fromVal rv 
    211211    return $ VList vals 
    … …  
    220220    vals <- mapMn args arity $ \x -> do 
    221221        rv  <- local (\e -> e{ envContext = cxtSlurpyAny }) $ do 
    222             evl (App (Val sub) (map Val x) []) 
     222            evl (App (Val sub) Nothing (map Val x)) 
    223223        fromVal rv 
    224224    return $ VList vals