small bug fix

not sure why this is an issue; the error message is:

File "compile.ml", line 141, characters 17-32:
Error: The type of this expression, '_a list array,
contains type variables that cannot be generalized