C++ (Cpp) scm_gc_protect примеры использования

Пример #1

Файл: read.c Проект: troter/thesis

void symbols_of_read_initialize(void)
{
    _scm_symbol_quote = intern("quote");
    scm_gc_protect(_scm_symbol_quote);
}

Пример #2

Файл: storage-gc.c Проект: barak/sigscheme

SCM_EXPORT void
scm_gc_protect_with_init(ScmObj *var, ScmObj init_val)
{
    *var = init_val;
    scm_gc_protect(var);
}