diff --git a/src/builtins/scan.c b/src/builtins/scan.c index 071ed98d..a6b18c60 100644 --- a/src/builtins/scan.c +++ b/src/builtins/scan.c @@ -274,8 +274,8 @@ B scan_c2(Md1D* d, B w, B x) { B f = d->f; if (rtid==n_ltack) return C2(shape, C1(fne, x), w); if (!(xr==1 && elNum(xe) && xe<=el_f64)) goto base; - if (rtid==n_floor) return scan2_min_num(w, x, xe, ia); // ⌊ - if (rtid==n_ceil ) return scan2_max_num(w, x, xe, ia); // ⌈ + if (rtid==n_floor && isF64(w)) return scan2_min_num(w, x, xe, ia); // ⌊ + if (rtid==n_ceil && isF64(w)) return scan2_max_num(w, x, xe, ia); // ⌈ if (rtid==n_add) { // + if (xe==el_bit) {