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