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

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

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

revision 1.54 by ossau, Tue Jan 22 23:31:39 2002 UTC revision 1.55 by ossau, Fri Mar 8 13:11:34 2002 UTC
# Line 317  SCM_DEFINE (scm_set_source_property_x, " Line 317  SCM_DEFINE (scm_set_source_property_x, "
317          SCM_WHASHSET (scm_source_whash, h, scm_make_srcprops (0, 0, SCM_UNDEFINED, datum, p));          SCM_WHASHSET (scm_source_whash, h, scm_make_srcprops (0, 0, SCM_UNDEFINED, datum, p));
318      }      }
319    else    else
320      SCM_WHASHSET (scm_source_whash, h, scm_acons (key, datum, p));      {
321          if (SRCPROPSP (p))
322            SRCPROPPLIST (p) = scm_acons (key, datum, SRCPROPPLIST (p));
323          else
324            SCM_WHASHSET (scm_source_whash, h, scm_acons (key, datum, p));
325        }
326    return SCM_UNSPECIFIED;    return SCM_UNSPECIFIED;
327  }  }
328  #undef FUNC_NAME  #undef FUNC_NAME

Legend:
Removed from v.1.54  
changed lines
  Added in v.1.55

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