make.refFn error for bounded distributions on continuous parameters

[uyedaj]

Offending line: test.dists <- suppressWarnings(apply(is.finite(sapply(dists, function(x) c(x(-0.5), x(1.5), x(0.5), x(1)))), 2, function(x) paste(as.numeric(x), collapse = "")))