r_scm            1089 src/stdlib.c     ScmObj r_scm;
r_scm            1094 src/stdlib.c     r_scm = SCM_ARGREF(0);
r_scm            1095 src/stdlib.c     if (!SCM_REALP(r_scm)) Scm_Error("real number required, but got %S", r_scm);
r_scm            1096 src/stdlib.c     r = Scm_GetDouble(r_scm);