/[guile]/guile/guile-core/libguile/keywords.c
ViewVC logotype

Diff of /guile/guile-core/libguile/keywords.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.45 by ttn, Mon Jul 9 07:36:47 2001 UTC revision 1.46 by mvo, Mon Feb 11 18:06:49 2002 UTC
# Line 95  SCM_DEFINE (scm_make_keyword_from_dash_s Line 95  SCM_DEFINE (scm_make_keyword_from_dash_s
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  }  }

Legend:
Removed from v.1.45  
changed lines
  Added in v.1.46

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26