Parent Directory | Revision Log | 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 |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |