diff --git a/libguile/ChangeLog b/libguile/ChangeLog index e5e7028c2..72aae203a 100644 --- a/libguile/ChangeLog +++ b/libguile/ChangeLog @@ -1,5 +1,7 @@ 2007-01-22 Han-Wen Nienhuys + * srcprop.c: regularize comments. + * eval.c: remove superfluous ifndef DEVAL. * private-options.h: idem. diff --git a/libguile/srcprop.c b/libguile/srcprop.c index 16c023bc2..c7d4e2cc0 100644 --- a/libguile/srcprop.c +++ b/libguile/srcprop.c @@ -58,13 +58,14 @@ SCM_GLOBAL_SYMBOL (scm_sym_breakpoint, "breakpoint"); /* - layout: + * Source properties are stored as double cells with the + * following layout: - car = tag - cbr = pos - ccr = copy - cdr = plist -*/ + * car = tag + * cbr = pos + * ccr = copy + * cdr = plist + */ #define SRCPROPSP(p) (SCM_SMOB_PREDICATE (scm_tc16_srcprops, (p))) #define SRCPROPBRK(p) (SCM_SMOB_FLAGS (p) & SCM_SOURCE_PROPERTY_FLAG_BREAK) @@ -117,11 +118,12 @@ scm_c_source_property_breakpoint_p (SCM form) /* - A protected cells whose cdr contains the last plist - used if plist contains only the filename. - - This works because scm_set_source_property_x does - not use assoc-set! for modifying the plist. + * We remember the last file name settings, so we can share that plist + * entry. This works because scm_set_source_property_x does not use + * assoc-set! for modifying the plist. + * + * This variable contains a protected cons, whose cdr is the cached + * plist */ static SCM scm_last_plist_filename;