Fix compilation errors in control.fs