summaryrefslogtreecommitdiff
path: root/libguile/srcprop.c
diff options
context:
space:
mode:
authorHan-Wen Nienhuys <hanwen@lilypond.org>2007-01-22 15:57:22 +0000
committerHan-Wen Nienhuys <hanwen@lilypond.org>2007-01-22 15:57:22 +0000
commitd00a0704a95a20e1803ddcabddfb50c6ba3c68a2 (patch)
tree0291a5619e6cdb416d5070a53b418b5bfaf5ac19 /libguile/srcprop.c
parent3d178652b8e5906df1b5da5f6183c5967e49342b (diff)
downloadguile-d00a0704a95a20e1803ddcabddfb50c6ba3c68a2.tar.gz
regularize comments.
Diffstat (limited to 'libguile/srcprop.c')
-rw-r--r--libguile/srcprop.c24
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;