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

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

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

revision 1.25 by mvo, Mon Feb 11 18:06:49 2002 UTC revision 1.26 by dirk, Fri Mar 1 00:19:20 2002 UTC
# Line 119  scm_error_environment_immutable_location Line 119  scm_error_environment_immutable_location
119  SCM  SCM
120  scm_make_environment (void *type)  scm_make_environment (void *type)
121  {  {
122    return scm_alloc_cell (scm_tc16_environment, (scm_t_bits) type);    return scm_cell (scm_tc16_environment, (scm_t_bits) type);
123  }  }
124    
125    
# Line 662  struct core_environments_base { Line 662  struct core_environments_base {
662  static SCM  static SCM
663  core_environments_observe (SCM env, scm_environment_observer proc, SCM data, int weak_p)  core_environments_observe (SCM env, scm_environment_observer proc, SCM data, int weak_p)
664  {  {
665    SCM observer;    SCM observer = scm_double_cell (scm_tc16_observer,
666                                      SCM_UNPACK (env),
667    observer = scm_alloc_double_cell (scm_tc16_observer,                                    SCM_UNPACK (data),
668                                      SCM_UNPACK (env),                                    (scm_t_bits) proc);
                                     SCM_UNPACK (data),  
                                     (scm_t_bits) proc);  
669    
670    if (!weak_p)    if (!weak_p)
671      {      {

Legend:
Removed from v.1.25  
changed lines
  Added in v.1.26

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