a_scm            1067 src/stdlib.c     ScmObj a_scm;
a_scm            1072 src/stdlib.c     a_scm = SCM_ARGREF(0);
a_scm            1073 src/stdlib.c     if (!SCM_REALP(a_scm)) Scm_Error("real number required, but got %S", a_scm);
a_scm            1074 src/stdlib.c     a = Scm_GetDouble(a_scm);