let validate funct temp =
     match temp with
     | temp when (temp > -217 && temp < 1000) -> funct temp
     | _ -> "Error"

let frozen temp =
     match temp with
     | temp when (temp > 0) -> "Not Frozen"
     | temp when (temp <= 0) -> "Frozen"

Then:

let wrapped = validate frozen

To use:

wrapped -300 # should return "Error"
wrapped -200 # should return "Frozen"
# etc