Commits

Anonymous committed 5f98c0e

fixed hash-table and vector generators

  • Participants
  • Parent commits 972393e

Comments (0)

Files changed (1)

File data-generators-impl.scm

 
 (define gen-vector-of
   (case-lambda
-    ((gen) (gen-vector-of gen (<- (gen-current-default-size))))
+    ((gen) (gen-vector-of gen (gen-current-default-size)))
     ((gen size-spec)
      (let ((size-gen (size-spec->gen size-spec)))
        (generator
 
 (define gen-hash-table-of
   (case-lambda
-    ((key-gen value-gen) (gen-hash-table-of key-gen value-gen (<- (gen-current-default-size))))
+    ((key-gen value-gen) (gen-hash-table-of key-gen value-gen (gen-current-default-size)))
     ((key-gen value-gen size-spec)
      (let ((size-gen (size-spec->gen size-spec)))
        (generator