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

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

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

revision 1.46 by ttn, Thu Mar 14 03:47:42 2002 UTC revision 1.47 by xxhanwen, Sat Jul 20 14:08:33 2002 UTC
# Line 76  grow_fluids (scm_root_state *root_state, Line 76  grow_fluids (scm_root_state *root_state,
76    i = 0;    i = 0;
77    while (i < old_length)    while (i < old_length)
78      {      {
79        SCM_VELTS(new_fluids)[i] = SCM_VELTS(old_fluids)[i];        SCM_VECTOR_SET (new_fluids, i, SCM_VELTS(old_fluids)[i]);
80        i++;        i++;
81      }      }
82    while (i < new_length)    while (i < new_length)
83      {      {
84        SCM_VELTS(new_fluids)[i] = SCM_BOOL_F;        SCM_VECTOR_SET (new_fluids, i, SCM_BOOL_F);
85        i++;        i++;
86      }      }
87    
# Line 171  SCM_DEFINE (scm_fluid_set_x, "fluid-set! Line 171  SCM_DEFINE (scm_fluid_set_x, "fluid-set!
171    
172    if (SCM_VECTOR_LENGTH (scm_root->fluids) <= n)    if (SCM_VECTOR_LENGTH (scm_root->fluids) <= n)
173      grow_fluids (scm_root, n+1);      grow_fluids (scm_root, n+1);
174    SCM_VELTS (scm_root->fluids)[n] = value;    SCM_VECTOR_SET (scm_root->fluids, n, value);
175    return SCM_UNSPECIFIED;    return SCM_UNSPECIFIED;
176  }  }
177  #undef FUNC_NAME  #undef FUNC_NAME

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

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