+ assert (gh_string_p (name));
+
+ if (lookup_keyword (ly_scm2string (name)) >= 0)
+ {
+ size_t sz;
+ char * str = gh_scm2newstr (name, &sz) ;
+ warning (_f ("Identifier name is a keyword: `%s'", str));
+ free (str);
+ }
+
+ SCM sym = scm_string_to_symbol (name);
+ SCM mod = gh_car (scopes_);
+
+ scm_module_define (mod, sym, s);