Show
Ignore:
Timestamp:
08/19/06 17:49:22 (2 years ago)
Author:
audreyt
Message:

* Pugs.Prim.Keyed: sizeFromRef is unused

Files:
1 modified

Legend:

Unmodified
Added
Removed

  • src/Pugs/Prim/Keyed.hs

    r12204 r12467  
    44  -- keyed values (Val) 
    55  pairsFromVal, keysFromVal, valuesFromVal, 
    6   sizeFromVal, 
    76 
    87  -- keyed references (VRef) 
    … …  
    4847    return . VList $ Map.elems pairs 
    4948valuesFromVal v = retError "Not a keyed reference" v 
    50  
    51 sizeFromVal :: Val -> Eval Val 
    52 sizeFromVal v = do 
    53     size <- doArray v array_fetchSize 
    54     sz <- size 
    55     return $ castV sz 
    56  
    5749 
    5850-- XXX These bulks of code below screams for refactoring