diff --git a/functions.rkt b/functions.rkt index 8dbfb74..d382f42 100644 --- a/functions.rkt +++ b/functions.rkt @@ -15,8 +15,8 @@ [struct tbf ((weights (vectorof number?)) (threshold number?))]) ;; Functions (contract-out - [tabulate (-> procedure-fixed-arity? (listof generic-set?) (listof list?))] - [tabulate* (-> (listof procedure-fixed-arity?) (listof generic-set?) (listof list?))] + [tabulate (-> procedure? (listof generic-set?) (listof list?))] + [tabulate* (-> (listof procedure?) (listof generic-set?) (listof list?))] [tabulate/boolean (-> procedure-fixed-arity? (listof (listof boolean?)))] [tabulate*/boolean (-> (non-empty-listof procedure-fixed-arity?) (listof (listof boolean?)))] [tabulate/01 (-> procedure? (listof (listof (or/c 0 1))))]