95 |
SCM |
SCM |
96 |
scm_c_make_keyword (char *s) |
scm_c_make_keyword (char *s) |
97 |
{ |
{ |
98 |
char *buf = scm_must_malloc (strlen (s) + 2, "keyword"); |
char *buf = scm_malloc (strlen (s) + 2); |
99 |
SCM symbol; |
SCM symbol; |
100 |
|
|
101 |
buf[0] = '-'; |
buf[0] = '-'; |
102 |
strcpy (buf + 1, s); |
strcpy (buf + 1, s); |
103 |
symbol = scm_str2symbol (buf); |
symbol = scm_str2symbol (buf); |
104 |
scm_must_free (buf); |
free (buf); |
|
scm_done_free (strlen (s) + 2); |
|
105 |
|
|
106 |
return scm_make_keyword_from_dash_symbol (symbol); |
return scm_make_keyword_from_dash_symbol (symbol); |
107 |
} |
} |