Commits

Anonymous committed 4d8ccaa

added typespecs

  • Participants
  • Parent commits f4da68e
  • Branches 3.0.0

Comments (0)

Files changed (1)

File data-generators-impl.scm

 
 (register-generator-for-type! flonum? gen-real)
 
+(: gen-bool (-> (procedure () boolean)))
 (define (gen-bool)
   (generator (zero? (bsd:random-fixnum 2))))
 
+(: booleans (-> (procedure () boolean)))
 (define booleans gen-bool)
 
 (define char-set->vector (o list->vector char-set->list))