|
|
@ -523,8 +523,10 @@
|
|
|
|
[prob (reduce-arity-proc prob)]
|
|
|
|
[prob (reduce-arity-proc prob)]
|
|
|
|
[prob (inference prob name)]
|
|
|
|
[prob (inference prob name)]
|
|
|
|
[prob (check-constraints prob)])
|
|
|
|
[prob (check-constraints prob)])
|
|
|
|
(loop prob)))
|
|
|
|
(loop prob))
|
|
|
|
conflicts)]))))
|
|
|
|
;; conflicts goes inside the handler expression
|
|
|
|
|
|
|
|
;; so raises can supersede it
|
|
|
|
|
|
|
|
conflicts))]))))
|
|
|
|
|
|
|
|
|
|
|
|
(define/contract (random-pick xs)
|
|
|
|
(define/contract (random-pick xs)
|
|
|
|
((non-empty-listof any/c) . -> . any/c)
|
|
|
|
((non-empty-listof any/c) . -> . any/c)
|
|
|
|