diff options
author | Han-Wen Nienhuys <hanwen@lilypond.org> | 2007-01-22 15:57:22 +0000 |
---|---|---|
committer | Han-Wen Nienhuys <hanwen@lilypond.org> | 2007-01-22 15:57:22 +0000 |
commit | d00a0704a95a20e1803ddcabddfb50c6ba3c68a2 (patch) | |
tree | 0291a5619e6cdb416d5070a53b418b5bfaf5ac19 /libguile/srcprop.c | |
parent | 3d178652b8e5906df1b5da5f6183c5967e49342b (diff) | |
download | guile-d00a0704a95a20e1803ddcabddfb50c6ba3c68a2.tar.gz |
regularize comments.
Diffstat (limited to 'libguile/srcprop.c')
-rw-r--r-- | libguile/srcprop.c | 24 |
1 files changed, 13 insertions, 11 deletions
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; |