ceil             1737 src/number.c       case SCM_ROUND_CEIL:  r = ceil(v); break;
ceil             1742 src/number.c       case SCM_ROUND_TRUNC: r = (v < 0.0)? ceil(v) : floor(v); break;
ceil             1990 src/number.c           est = (int)ceil(log10(val) - 0.1);