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

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

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

revision 1.103 by xxhanwen, Sat Jul 20 14:08:34 2002 UTC revision 1.104 by hanwen, Sun Aug 4 00:17:18 2002 UTC
# Line 120  scm_mem2symbol (const char *name, size_t Line 120  scm_mem2symbol (const char *name, size_t
120    
121    {    {
122      /* The symbol was not found - create it. */      /* The symbol was not found - create it. */
123        SCM symbol = scm_double_cell (SCM_MAKE_SYMBOL_TAG (len),
     SCM symbol;  
     SCM cell;  
     SCM slot;  
   
     symbol = scm_double_cell (SCM_MAKE_SYMBOL_TAG (len),  
124                                (scm_t_bits) scm_gc_strndup (name, len,                                (scm_t_bits) scm_gc_strndup (name, len,
125                                                             "symbol"),                                                             "symbol"),
126                                raw_hash,                                raw_hash,
127                                SCM_UNPACK (scm_cons (SCM_BOOL_F, SCM_EOL)));                                SCM_UNPACK (scm_cons (SCM_BOOL_F, SCM_EOL)));
128    
129      slot = SCM_VELTS (symbols) [hash];      SCM slot = SCM_VELTS (symbols) [hash];
130      cell = scm_cons (symbol, SCM_UNDEFINED);      SCM cell = scm_cons (symbol, SCM_UNDEFINED);
131      SCM_VECTOR_SET (symbols, hash, scm_cons (cell, slot));      SCM_VECTOR_SET (symbols, hash, scm_cons (cell, slot));
132    
133      return symbol;      return symbol;

Legend:
Removed from v.1.103  
changed lines
  Added in v.1.104

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