Guard binds to the pattern in a surprising (to me) way.
Unified · Split
| @@ -3274,7 +3274,8 @@ let viewkeyboard key mask = · 3273 unmodified lines | |||
| 3274 | | Ascii '4' when ctrl -> | 3274 | | Ascii '4' when ctrl -> |
| 3275 | let zoom = Ffi.getmaxw () /. float !S.winw in | 3275 | let zoom = Ffi.getmaxw () /. float !S.winw in |
| 3276 | if zoom > 0.0 then setzoom zoom | 3276 | if zoom > 0.0 then setzoom zoom |
| 3277 | | Fn 9 | Ascii '9' when ctrl -> togglebirdseye () | 3277 | | Fn 9 -> togglebirdseye () |
| 3278 | | Ascii '9' when ctrl -> togglebirdseye () | ||
| 3278 | | Ascii ('0'..'9' as c) when not ctrl -> | 3279 | | Ascii ('0'..'9' as c) when not ctrl -> |
| 3279 | let ondone s = | 3280 | let ondone s = |
| 3280 | let n = | 3281 | let n = |