Changeset 15421 for src/Pugs/Eval.hs

Show
Ignore:
Timestamp:
03/03/07 14:58:21 (21 months ago)
Author:
audreyt
Message:

err, typo.

Files:
1 modified

Legend:

Unmodified
Added
Removed

  • src/Pugs/Eval.hs

    r15420 r15421  
    10841084    where 
    10851085    argsPos = mapP (Val . castV) (f_positionals feed) 
    1086     argsNam = [ Syn "named" [Val (VStr (cast k)), Val (castV (vs !: lst))] | (k, vs) <- Map.toList (f_nameds feed), let lst = length vs - 1, lst >= 0 ] 
     1086    argsNam = [ Syn "named" [Val (VStr (cast k)), Val (castV (vs !: lst))] | (k, vs) <- Map.toList (f_nameds feed), let lst = lengthP vs - 1, lst >= 0 ] 
    10871087    feed = concatFeeds (c_feeds capt) 
    10881088    inv  = case capt of