Changeset 16597

Show
Ignore:
Timestamp:
06/01/07 18:19:54 (18 months ago)
Author:
audreyt
Message:

* Pugs.Prim: More concise, warning-free and point-free definition of perlReplicate.

Files:
1 modified

Legend:

Unmodified
Added
Removed

  • src/Pugs/Prim.hs

    r16526 r16597  
    925925 
    926926perlReplicate :: VInt -> a -> [a] 
    927 perlReplicate i a = if i < 0  
    928     then genericReplicate 0 a  
    929     else genericReplicate i a 
     927perlReplicate = genericReplicate . max 0 
    930928 
    931929-- |Implementation of 2-arity primitive operators and functions