once_scm 644 src/intlib.c ScmObj once_scm; once_scm 651 src/intlib.c once_scm = SCM_ARGREF(2); once_scm 652 src/intlib.c if (!SCM_BOOLP(once_scm)) Scm_Error("boolean required, but got %S", once_scm); once_scm 653 src/intlib.c once = SCM_BOOL_VALUE(once_scm);