Changeset 36233 in project


Ignore:
Timestamp:
08/12/18 21:24:06 (8 days ago)
Author:
kon
Message:

expd type

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/5/amb/trunk/amb.scm

    r36214 r36233  
    3939;;; data-structures
    4040
    41 (: shuffle ((list-of *) procedure -> (list-of *)))
     41(: shuffle ((list-of *) (procedure (fixnum) fixnum) -> (list-of *)))
    4242;
    43 (define (shuffle ls rand)
     43(define (shuffle ls #!optional (rand pseudo-random-integer))
    4444  (let* (
    4545    (len (length ls))
Note: See TracChangeset for help on using the changeset viewer.