Exemplos de scm_current_module_lookup_closure em C++ (Cpp)

Exemplo n.º 1

Arquivo: guilehelper.c Projeto: bluemoon/Godel

int scm_symbol_exists(SCM sym) {
    SCM var;

    var = scm_sym2var(sym,
                      scm_current_module_lookup_closure(),
                      SCM_BOOL_F);
    if (var != SCM_BOOL_F)
        return 1;
    return 0;
}

Exemplo n.º 2

Arquivo: guile-api.c Projeto: spk121/serveez-mg

SCM
guile_lookup (const char *name)
{
    SCM var;

    var = scm_sym2var (scm_from_locale_symbol (name),
                       scm_current_module_lookup_closure (),
                       SCM_BOOL_F);
    if (scm_is_false (var))
        return SCM_UNDEFINED;
    else
        return scm_variable_ref (var);
};

Exemplo n.º 3

Arquivo: guilehelper.c Projeto: bluemoon/Godel

int scm_c_symbol_exists(const char *name) { 
	SCM sym; 
	SCM var;
	
	sym = scm_str2symbol(name);

	/* Check to see if the symbol exists */
	var = scm_sym2var (sym, 
					   scm_current_module_lookup_closure(), 
					   SCM_BOOL_F
					  );

	if (var != SCM_BOOL_F)
			return 1;
	return 0;
}