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);